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SC/FOX (Forth Optimized eXpress"") SBC: 
8 and 10 MHz RTX 2000 options 
32K to 512K bytes 0-wait state SRAM 
64K b5rtes of shadow-EPROM space 
Application boot loader in EPROM 
FCompiler'" Forth software included 
Code converter for EPROM programs 
RS232 serial port with handshaking 
Centronic parallel-printer port 
Single +5 volt board operation 
Two 50-pin application headers 
Eurocard size: lOOmm by 160nim 
SC/FOX Coprocessor compatibility 
Retail from $1,195 with software 



Harris RTX 2000™ Forth CPU Features: 

1-cycle 16 X 16 = 32-bit multiply 
1-cycle 14-prioritized interrupts 
one non-maskable interrupt 
two 256-word stack memories 
three 16-bit timer/counters 
8-channel 16-bit I/O bus 
CMOS in 85-pin pin-grid array 

Optional SC/FOX SBC Products: 

SC/Forth^ Language in EPROM 
SC/Float'" Roating Point Library 
SC/SBC/PROTO"° Prototype Board 
SC/FOX/SCSI*" I/O Daughter Board 



Ideal for embedded real-time control, high-speed data acquisition and reduction, image or signal 
processing, or computation intense applications. For additional information, please contact us at: 

Silicon Composers, Inc., 210 California Ave., Suite K, Palo Alto, CA 94306 (415) 322-8763 



Forth Dimensions 



2 



Volume X, Number 4 



FORTH 

DIMENSIONS 



A SIMPLE SCREEN DIRECTORY - DAVID CORNELL 

■ ^ 8 

. I , This utility allows you to assign a symbolic name to any screen, then it builds a directory of all the named screens in your 
I , file. LOAD, LIST, and EDIT recognize the screens' names — so physical locations no longer matter — but use of con- 
(§t) ventional screen numbers is not affected. Low overhead, great convenience, and no code conversion required. 



I 



STANDALONE APPUCATIONS IN F83 - JAMES F. BALL 

15 

This article describes the steps required to generate a self-executing application in the F83 dialect of Forth. A modified 
system, containing a stripped-down F83 kernel and your application, is created via metacompilation. Not widely docu- 
mented, the author found this approach used in Inside F83. 

USING REGISTERS IN DATA STACKS - DON KENNEY 
ft JP 

I . Usually, Forth systems implement a data stack in memory. But many CPUs handle register operations much more rapidly 
I than the analogous memory operations. There are problems with keeping the whole data stack in registers, but this paper 
^ shows that mixed register-memory stacks can be much faster than pure memory stacks. 

MENV-DRTVE THE 8250 ASYNC CHIP - PAUL COOPER 

22 

Talk about communications for long and you're bound to run into the ubiquitous, asynchronous 8250 chip. This initiali- 
zation routine lets you speak ASCII or Baudot, and allows the operator to rely on default values or to explicitly set word 
W length, stop bits, and parity. Originally, it was part of an RTTY program for an amateur radio station. 

DESIGNING DATA STRUCTURES - MIKE ELOLA 
^ 26 

I The chief concern of the third installment in this series is abstraction of the host computer, in the interests of program 
I portability, with attention paid to a declaration syntax for portable arrays. For data structures, we often have had to write 
W code that relies on host peculiarities, such as bit-processing widths. But no more! 



USING A STRING STACK - RON BRAITHWAITE 
30 

In the last issue, the author presented his string package, based on the comprehensive string operations of the MUMPS 
computer language. It features a dedicated stack and a complete vocabulary, including pattern matching. Here, the remain- 
der of his code is printed. 

Editorial Best ofGEnie 

4 29 

Letters Chapters 

5 38 

Advertisers Index 
37 



Volume X, Number 4 



3 



Forth Dimensions 



EDITORIAL 



I was able to attend part of this 
year's Hackers Conference, possibly the 
last place where certain core issues about 
microcomputing still receive general dis- 
cussion. Do you remember earlier times, 
when what we now call our business was 
known as the microcomputing revolution? 
Do you remember why we called it that? 
Do you remember why we worked so dili- 
gently to promote computer literacy, pub- 
lic access with personal privacy, and inter- 
active mass media? Believe me, it was for 
better purposes than touting a new class of 
business machines. If you take the time to 
explore the influence of man's philosophy 
on technology, and vice versa, you'll see 
that our technology bears the fingerprints 
of its creators, if not all their names. 

Hackers 4.0 proved that some of the old 
sparks are still burning. Arriving with 
invitation firmly in hand, I encountered 
people I hadn't seen since the old days at 
People's Computer Company. I had pub- 
lished or corresponded with some of them, 
years ago, as the editor of what was then 
Dr. Dobb's Journal. Some of the attendees 
had been party to key developments in the 
evolution of microcomputers; others were 
hackers by temperament and social vision, 
but not of machines. The multi-faceted 
personality of the group is partly explained 
by Bob Bickford's post-Hackers 2.0 defi- 
nition of a hacker: "Any person who de- 
rives joy from discovering ways to circum- 
vent limitations." With this in mind, it is 
perhaps unsurprising that a half dozen or so 
of the two-hundred-plus attendees are well 
known as Forth language pundits. Their 
participation reinforced my suspicion that 
Forth is about as close as you can get to a 
computer hacker's natural medium. 

It was refreshing to spend time with this 
group of individuals, whose interests in 
hardware specifications and data represen- 
tation were balanced — and in some cases 
fueled — by human concerns like ethics, 
the environment, and personal integrity. 



Some of these people, but especially the 
values they represent, helped to shape the 
machines we use today. Quietly hacking 
away in their garages or offices, some of 
them are still helping to shape the machines 
of the future. 

* * * 

As for the present, it seems our last issue 
got many readers' attention with its focus 
on stacks. We had a hunch it was time to air 
some fresh ideas about this fundamental 
feature of Forth. In fact, we got such an 
interesting response that we are following 
up on it without delay. You will find in this 
issue, along with the remainder of Ron 
Braithwaite's string-stack implementa- 
tion, an analysis of the speed savings cre- 
ated by implementing just the top of a. data 
stack in registers, and two relevant letters to 
the editor: the first expands on Yngve's 
idea for an extra stack, and the second 
shows how to use Johansen's shadow stack 
while compiling. 

* * * 

The most recent addition to the sched- 
ule of Forth-specific events is SIGForth 
'89, to be held in February at the Four 
Seasons Hotel in Austin, Texas. This is a 
function of a fledgling ACM SIG, and the 
call for papers stresses real-time software 
engineering. New Year's Day is the dead- 
line for abstracts, so write to them soon for 
information if you want to attend or to 
speak (see advertisement). 

This issue is scheduled to hit the streets 
during the Forth Interest Group's Real- 
Time Programming convention in Los 
Angeles. Our next issue will bring full 
coverage, including the winner of the 
"world's fastest programmer" contest The 
next week finds the yearly FORML meet- 
ing on the Monterey peninsula (topic of 
emphasis: artificial intelligence). You'll be 
hearing more about that meeting of the 
minds, too. 

— Marlin Ouverson 
Editor 
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Figure One. Garian's superstack pointers. 



Supers tacks 

Dear Mr. Ouverson: 

There seems to be some interest in stack 
extensions, judging by the last issue of 
Forth Dimensions. Victor Yngve, who has 
given us synonyms and macros, has now 
given us a simple way to create and ma- 
nipulate stacks (FD X/3). Yngve calls it a 
confection, so the superstacks described 
here are just a light dusting of powdered 
sugar on top of a confection. The aim is to 
extend the simple extra stack idea to a set of 
stacks. The method we shall use is to gen- 
eralize the idea behind XSTACK, which is 
the fixed address of the stack pointer for a 
simple stack. We will make the address of 
the cell containing the stack pointer a vari- 
able, and will use it to switch among the 
stacks. We will redefine XSTACK so that it 
will contain the address of the stack pointer 
of the «th stack. The contents of the cell to 
which the stack pointer points will change 
with manipulation of the stack (see Figure 
One). 

The following word creates a data struc- 
ture consisting of a set of identical stacks. It 
replaces the definition of an extra stack, 
which had the effect of making XSTACK a 
constant. 

: SUPER 

CREATE #STACKS 
DO HERE , 
XSIZE 2* ALLOT 
LOOP ; 

where we have first defined: 
6 CONSTANT SIZE 
6 CONSTANT #STACKS 
VARIABLE XSTACK 
VARIABLE STK# 



SIZE is the maximum depth of a stack, 
fSTACKS is the number of stacks in the 
superstack, XSTACK is a variable for 
switching stacks, and STK# contains the 
current stack number. 

Next, we actually lay down the structure 
with: 

SUPER STACK 

We now have a 6 x 6 superstack named 
STACK. Switching stacks is accomplished 
by computing the address of the stack 
pointer of the nth item in stack: 
: SWITCH ( n — ) 

DUP STK# ! 

XSIZE 1+ * 2* 

STACK + XSTACK ! ; 

And, finally, we have to be sure that 
XSTACK leaves the address of the current 
stack pointer: 

: XSTACK 
XSTACK @ ; 

That's it, except for some useful words 
like XSWAP, XDROP, and .STACKS and 



CLRALL, which operate on the entire su- 
perstack: 
: XSWAP 

X> X> SWAP 

>X >X ; 
: XDROP 

X> DROP ; 

: . STACKS 
#STACKS 

DO I SWITCH 
.X LOOP ; 

: CLRALL 
#STACKS 

DO I SWITCH 
XCLEAR LOOP ; 

One of the advantages of this switching 
technique is that the original stack manipu- 
lation words work exactly the same way on 
all stacks, and you can use each stack inde- 
pendently, without having to provide an 
index for every stack operation. As for 
applications, superstacks can be used to 
hold temporary anonymous values, to sort 
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out information for various purposes (e.g., 
windows, graphics), and to rearrange the 
parameter stack more easily. There are 
probably many more applications out there 
that will become evident as the limitations 
of having only one or two stacks is re- 
moved. 
Robert Garian 

2522-E S. Arlington Mill Dr. 
Arlington, VA 22206 



He Wants Proof 

Dear Marlin, 

I have been using Forth for five years, 
making my living with it for two. Recently, 
1 have been in a situation that sharply 
pointed up some issues about my use of 
Forth. Both of us have heard these issues 
again and again, and now I will bring them 
up one more time: file I/O and extended- 
precision, or floating-point, arithmetic. 

I am working in an environment where 
there are two different microprocessors, 
running different Forths and communicat- 
ing. I am writing graphics software which 
needs to be executed, alternatively, in ei- 
ther or both environments on one or more 
of each processor type. Graphics (3-D fla- 
vored) eats up lots of resources and needs 
high-precision calculations to make pretty 
pictures, so optimizing and balancing the 
loads are critical. 

I find myself constantly hacking away 
at my Forth source code, mainly trying to 
integrate data structures and algorithms for 
file I/O and arithmetic precision. Now that 
I am dealing with two Forths and two proc- 
essor types, this has become a circus. Forth 
(both fig-FORTH and F83) is optimized 
for screen I/O and single- or double-preci- 
sion integer math. I would like to challenge 
anyone to provide any rigorous proof that 
this is a necessary or sufficient limitation to 
Forth. If this limit cannot be rigorously 
defended, I think it incumbent, in this day 
of multi-megabyte hard drives and 32-bit 
processors, that Forth move to deal with 
these issues. Telling someone to go buy a 
commercial Forth package with these op- 
tions does not advance by one byte the 
Forth community's ability to deal with 
these issues rigorously. I bought the pack- 
ages and along came the other baggage, the 
worst being that the best commercial solu- 
tions are optimized for a specific processor 
and the source code sure-as-heck is not 
portable. I can't believe the answer is to 



write Forth in C to achieve a transportable 
solution and have access to I/O and math 
wordsets that are not someone's copy- 
righted property. 

I would like to see FIG rejuvenate the 
kind of mental energies that went into the 
great CASE issues of years past. File I/O of 
the VDI type, and floating-point/extended- 
precision (64 - 80 bit) arithmetic wordsets 
are the types of things that, although contro- 
versial, can promote the kind of interest and 
insight that move a little closer to scientific 
puzzle-solving, and a little further away 
from processor-dependent code examples 
that drive me crazy. I would like to see 
prizes, like a copy of each of the books in the 
Forth Dimensions order form, a free trip to 
the next overseas Forth symposium, etc. 

Sincerely, 
Mike McCann 
P.O. Box 34160 
Omaha, NE 68134 



Student's Forth 

There are few good textbooks about 
Forth, Starting Forth being an outstanding 
example. For those looking for an alterna- 
tive, I would like to recommend another fa- 
vorite of mine. The Student' s Forth by Glyn 
Emery (Blackwell, 1985). This little book 
seems to have gone unnoticed by the 
(American) Forth community. It isn't even 
mentioned in the latest edition of A Bibliog- 
raphy of Forth References. In only 100 
pages, it covers Forth programming and im- 
plementation in a well-structured and 
clearly written way that makes it a good 
basis for teaching Forth. This book is ex- 
actly what its title suggests. 

Yours, 

Henning Hansen 

#1 16, Technical Univ. of Denmark 
2800 Denmark 



Shadow Stacks Get Smart 
Dear MarUn, 

Thank you for publishing my article, 
"Shadow Stacks" (FD X/3). I have taken 
those ideas a little further since then. 

By making ! SHADOW state smart, you 
can eliminate the semi-kludgey ] S word. 
Now when interpret converts a num- 
ber, it will store the high 16 bits to the 
shadow stack if die system is interpreting, or 



it will compile the high 16 bits as a literal 
and put that onto the parameter stack when 
the word is executed: 
: TUCK_SHADOW 

SHADOW_PTR 2- 1 ; 
(Tuck on shadow stack.) 

: <!SHADOW> ( n — ) 
STATE @ 

IF COMPILE LIT , 
COMPILE TUCK_SHADOW 
ELSE ! SHADOW THEN ; 

(State-smart ! SHADOW.) 



Compile < ! SHADOW> into the defini- 
tion of INTERPRET (instead of 
! SHADOW as was described in the article). 

As hinted at in the article, the Forth 
primitive operators can be extended to 
handle 32-bit numbers, then both 16- and 
32-bit numbers will have the same stack 
effects and can be mixed and handled by 
"size-smart" words (which will use 
@ SHADOW). Some definitions to convert 
double numbers to "shadow numbers" are 
needed to set this up: 
: 2SH->D ( si s2 — dl d2 ) 

>R >R @ SHADOW 

R> R> ; 

(Convert two shadow numbers to two 
double numbers.) 

: 2D->SH ( dl d2 — si s2 ) 

>R >R '.SHADOW 

R> R> ! SHADOW ; 
(Convert two double numbers to two 
shadow numbers.) 

Here are some of the redefined primi- 
tives: 

: DUP ( si — si si ) 
@ SHADOW DDUP 2D->SH ; 

: SWAP ( si s2 — s2 si ) 
2sh->d dswap 2d->sh ; 

: + ( si s2 — sl+s2 ) 
2SH->D D+ ! SHADOW ; 

: - ( si s2 — sl-s2 ) 
2SH->D D- ! SHADOW ; 

: AND ( si s2 — and ) 
2SH->D ROT 

AND >R AND >R ! SHADOW ; 

(Continued on page 18.) 
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YES, THERE IS A BETTER WAY 
A FORTH THAT ACTUALLY 
DELIVERS ON THE PROMISE 

"Vforth 

POWER 

HS/FORTH's compilation and execution speeds are 
unsurpassed. Compiling at 20,000 lines per minute, it 
compiles taster Itian many systems link. For real jobs 
execution speed is unsurpassed as well. Even non- 
optimized programs run as fast as ones produced by 
most C compilers. Forth systems designed to fool 
bencfimarks are slightly faster on nearly empty do 
loops, but bog down when the colon nesting level ap- 
proaches anything useful, and have much greater 
memory overhead for each definition. Our optimizer 
gives assembler language performance even for 
deeply nested definitions containing complex data and 
control structures. 

HS/FORTH provides the best architecture, so good that 
another major vendor "cloned" (rather poorly) many of 
its features. Our Forth uses all available memory for 
both programs and data with almost no execution time 
penalty, and very little memory overhead. None at all for 
programs smaller than 200kB. And you can resize seg- 
ments anytime, without a system regen. With the 
GigaForth option, your programs transparently enter 
native mode and expand into 1 6 Meg extended memory 
or a gigabyte of virtual, and run almost as fast as in real 
mode. 

Benefits beyond speed and program size include word 
redefinition at any time and vocabulary structures that 
can be changed at will, for instance from simple to 
hashed, or from 79 Standard to Forth 83. You can be- 
head word names and reclaim space at any time. This 
includes automatic removal of a colon definition's local 
variables. 

Colon definitions can execute inside machine code 
primitives, great for interrupt & exception handlers. 
Multi-cfa words are easily implemented. And code 
words become incredibly powerful, with multiple entry 
points not requiring jumps over word fragments. One of 
many reasons our system is much more compact than 
its immense dictionary (1 600 words) would imply. 

INCREDIBLE FLEXIBILITY 

The Rosetta Stone Dynamic Linker opens the world of 
utility libraries. Link to resident routines or link & remove 
routines interactively. HS/FORTH preserves relocata- 
bility of loaded libraries. Link to BTRIEVE METAWIN- 
DOWS HALO HOOPS ad infinitum. Our call and data 
structure words provide easy linkage. 

HS/FORTH runs both 79 Standard and Forth 83 pro- 
grams, and has extensions covering vocabulary search 
order and the complete Forth 83 test suite. It loads and 
runs all FIG Libraries, the main difference being they 
load and run faster, and you can develop larger applica- 
tions than with any other system. We like source code in 
text files, but support both file and sector mapped Forth 
block interfaces. Both line and block file loading can be 
nested to any depth and includes automatic path 
search. 



FUNCTIONALITY 

l\^ore important than how fast a system executes, is 
whether it can do the job at all. Can it work with your 
computer. Can it work with your other tools. Can it trans- 
form your data into answers. A language should be 
complete on the first two, and minimize the unavoidable 
effort required for the last. 

HS/FORTH opens your computer like no other lan- 
guage. You can execute function calls, DOS com- 
mands, other programs interactively, from definitions, 
or even from files being loaded. DOS and BIOS function 
calls are well documented HS/FORTH words, we don't 
settle for giving you an INTCALLand saying "have at it ". 
We also include both fatal and informative DOS error 
handlers, installed by executing FATAL or INFORM. 

HS/FORTH supports character or blocked, sequential 
or random I/O. The character stream can be received 
from/sent to console, file, memory, phnter or com port. 
We include a communications plus upload and down- 
load utility, and foreground/background music. Display 
output through BIOS for compatibility or memory 
mapped for speed. 

Our formatting and parsing words are without equal. In- 
teger, double, quad, financial, scaled, time, date, float- 
ing or exponential, all our output words have string 
formatting counterparts for building records. We also 
provide words to parse all data types with your choice of 
field definition. HS/FORTH parses files from any lan- 
guage. Other words treat files like memory, nn@H and 
nn !H read or write from/to a handle (file or device) as 
fast as possible. For advanced file support, HS/FORTH 
easily links to BTRIEVE, etc. 

HS/FORTH supports text/graphic windows for MONO 
thru VGA. Graphic drawings (line rectangle ellipse) can 
be absolute or scaled to current window size and 
clipped, and work with our penplot routines. While great 
for plotting and line drawing, it doesn't approach the ca- 
pabilities of Metawindows (tm Metagraphics). We use 
our Rosetta Stone Dynamic Linker to interface to Meta- 
windows. HS/FORTH with MetaWindows makes an un- 
beatable graphics system . Or Rosetta to your own 
preferred graphics driver. 

HS/FORTH provides hardware/software floating point, 
including trig and transcendentals. Hardware fp covers 
full range trig, log, exponential functions plus complex 
and hyperbolic counterparts, and all stack and compari- 
son ops. HS/FORTH supports all 8087 data types and 
works in RADIANS or DEGREES mode. No coproces- 
sor? No problem. Operators (mostly fast machine code) 
and parse/format words cover numbers through 1 8 dig- 
its. Software fp eliminates conversion round off error 
and minimizes conversion time. 

Single element through 4D arrays for all data types in- 
cluding complex use multiple cfa's to improve both per- 
formance and compactness. Z = (X-Y) / (X + Y) would 
becoded;XY-XY + /ISZ(16bytes)insteadof:X@ 
Y(s)-X@Yfe-i-/Z!(26 bytes) Arrays can ignore 64k 
boundaries. Words use SYNONYMS for data type inde- 
pendence. HS/FORTH can even prompt the user for 
retry on erroneous numeric input. 

The HS/FORTH machine coded string library with up to 
3D arrays is without equal. Segment spanning dynamic 
string support includes insert, delete, add, find, replace, 
exchange, save and restore string storage. 

Our minimal overhead round robin and time slice multi- 
taskers require a word that exits cleanly at the end ot 
subtask execution. The cooperative round robin multi- 
tasker provides individual user stack segments as well 
as user tables. Control passes to the next task/user 
whenever desired. 



APPLICATION CREATION TECHNIQUES 

HS/FORTH assembles to any segment to create stand 
alone programs of any size. The optimizer can use HS/ 
FORTH as a macro library, or complex macros can be 
built as colon words. Full fonward and reverse labeled 
branches and calls complement structured flow control. 
Complete syntax checking protects you . Assembler 
programming has never been so easy. 

The Metacompiler produces threaded systems from a 
few hundred bytes, or Forth kernels from 2k bytes. With 
it, you can create any threading scheme or segmenta- 
tion architecture to run on disk or ROM. 

You can turnkey or seal HS/FORTH for distribution, with 
no royalties for turnkeyed systems. Or convert for ROM 
in saved, sealed or turnkeyed form, 

HS/FORTH includes three editors, or you can quickly 
shell to your favorite program editor. The resident full 
window editor lets you reuse former command lines and 
save to or restore from a file. It is both an indispensable 
development aid and a great user interface. The macro 
editor provides reuseable functions, cut, paste, file 
merge and extract, session log, and RECOMPILE. Our 
full screen Forth editor edits file or sector mapped 
blocks. 

Debug tools include memory/stack dump, memory 
map, decompile, single step trace, and prompt options. 
Trace scope can be limited by depth or address. 

HS/FORTH lacks a "modular " compilation environ- 
ment. One motivation toward modular compilation is 
that, with conventional compilers, recompiling an entire 
application to change one subroutine is unbearably 
slow. HS/FORTH compiles at 20,000 lines per minute, 
faster than many languages link — let alone compile! 
The second motivation is linking to other languages. 
HS/FORTH links to foreign subroutines dynamically. 
HS/FORTH doesn't need the extra layer of files, or the 
programs needed to manage them. With HS/FORTH 
you have source code and the executable file. Period. 
" Development environments" are cute, and necessary 
for unnecessarily complicated languages. Simplicity is 
so much better. 

HS/FORTH Programming Systems 

Lower levels include all functions not named at a higher 



level. Some functions available separately. 
Documentation & Working Demo 

(3 books, 1 000 -I- pages, 6 lbs) $ 95. 

Student $145. 

Personal optimizer, scaled & quad integer $245. 

Professional 80x87, assembler, turnkey, $395. 



dynamic strings, multitasker 
RSDL linker, 
physical screens 
Production ROM, Metacompiler, Metawindows 

$495. 



Level upgrade, price difference plus $ 25. 

OBJ modules $495. 
Rosetta Stone Dynamic Linker $95. 
Metawindows by Metagraphics (includes RSDL) 

$145. 

Hardware Floating Point & Complex $ 95. 

Quad integer, software floating point $ 45. 

Time slice and round robin multitaskers $ 75. 



GigaForth (80286/386 Native mode extension) $295. 

HARVARD 
SOFTWORKS 

PO BOX 69 
SPRINGBORO, OH 45066 
(513)748-0390 
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SIMPLE SCREEN 

DIRECTORY 

DAVID CORNELL - HARRINGTON PARK, NEW JERSEY 



Xorth, traditionally, uses numbered 
screens foi source code. Screens corre- 
spond, in one way or another, to the 1024- 
byte physical blocks around which exter- 
nal storage is organized. All this probably 
had its origin as a way to easily port sys- 
tems to new hardware — once IK units of 
storage were available, the system was off 
and running with no hassles about file 
formats, operating systems (if any), and all 
the rest. Proponents opine that this encour- 
ages small, modular organization, facili- 
tates incremental program development, 
and allows easy manipulation of source 
code. Others point out that it is unnecessar- 
ily simplistic, isolates the Forth program- 
mer from available editors and editing 
tools, and takes too much programming 
time to fit code into an inflexible format 
Everyone is right. 

Screens are a fact, an artifact of the 
Forth world. For the Forth programmer, 
even when other formats are supported, 
screens are old friends of questionable 
merit that come with the territory and 
remain much in evidence. 

Dealing with screens can be improved 
considerably by using meaningful names 
and separating the logical screen from the 

physical block. LOADSCR SQUARE- 
ROOT says more than 23 load, and it 
doesn't matter what the block number is, 
even if it changes. The latter attribute is 
particularly useful in loader screens. 

It is commcm to have one screen serve as 
a loader, with entries like: 
3 LOAD 4 LOAD 
10 LOAD 16 LOAD 

If block four is deleted, or if a new block is 



inserted because it logically belongs with 
block three, subsequentreferencesto4, 10, 
and 16 will be wrong. 

If screens are given the logical names 3 
and 4, their physical locations don't mat- 
ter; a new block that logically belongs with 
3 can be named 3A, 3 . 1, or a more mean- 
ingful name. Then it can be physically 
moved, or not, and loadscr 4 or 
LOADSCR SQUARE-ROOT will Still load 
the same code. 



^'Screens are old 
friends of question- 
able merif 



Having just made a case against num- 
bered screens, I now must say that SOTie- 
times it's just easier and more convenient to 
type 10 EDIT or 10 LOAD instead of a 
longer name. And referencing a screen by 
number makes it easier to find in a listing. 
Also, the requirement that all existing code 
be converted to another format is an unac- 
ceptable price, at least for a first pass. 

So, the main specifications are: 

1. Refer to screens by name for load, 

LIST, EDIT, etc. 

2. Support a return to the old ways, when 
desired. 

3. Simple enough to allow additions and 
modifications. 

4. Minimal bulk added to the main diction- 
ary. 



Data Organization 

The obvious starting point is to dedi- 
cate one or more blocks to use as a direc- 
tory. My Forths use DOS files, and a quick 
check showed there is no file for which 
one block would not accommodate a di- 
rectory. This may not be the case if you are 
accessing a 40-megabyte hard disk in IK 
physical Forth blocks. 

The next decision is how to organize 
the block directory. A list of records, each 
record consisting of a variable-width 
name field and a fixed-width parameter 
field, has proved to be a particularly versa- 
tile data type. It is close enough, conceptu- 
ally, to the standard Forth dictionary to 
seem familiar and easy to manipulate. The 
list may grow upward in memory, or 
downward (stack-like), with the most 
recent entry at the beginning. In the case of 
the screen directory, it really doesn't 
matter which way it grows. I already had 
routines to support lists that grow upward, 
and I wanted to develop words for down- 
ward-growing lists (for external vocabu- 
laries); this was an opportunity to do so. 
New entries are put at the beginning of the 
existing entries, and searches are on a last- 
in, first-accessed basis. The record and di- 
rectory organization are shown in Figures 
One and Two. 

Next, a symbol or convention is 
needed to identify and define the name of 
a screen to be cataloged in the directory. 
The only real requirement is that the 
symbol be ignored at compile time, but it 
would be nice if it could be reasonably 
consistent with existing practice. One 
Forth convention is to describe the con- 
tents of a screen in a comment on the first 
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line. The backslash (\) is commonly used to 
mean "comment to end-of-line," and a 
colon ( : ) is associated with "define." Put- 
ting these together, we end up with \ : on 
the first line of a screen, to define a name for 
that screen. When the blocks are cataloged 
(with CAT-BLOCK or CAT-BLOCKS), 
any that begins with \ : <name> will be 
identified as a logical screen with the name 
<name>, and an entry is made in the direc- 
tory. 

The symbol \ : is defined in the diction- 
ary as "comment to end-of-line." 



Integration 

Integration with an existing Forth sys- 
tem simply involves: 

1 . Add the word \ : to the Forth dictionary 
(and \ if it isn't already present). 

2. Identify the screens to be cataloged, by 
placing \ : <name> on the first line of 
the screen. 

3. Execute CatFile to initialize the di- 
rectory and to catalog the screens. 

4. From now on, CAT-BLOCK or CAT- 
BLOCKS will maintain the directory. 

Words that manipulate blocks and 
screens may be redefined to exit to CAT- 
BLOCK or CAT-BLOCKS. Assuming a 
screen editor named ED I T , the redefinition 
would be: 

: EDIT ( blk# — ) 
DUP EDIT CAT-BLOCK ; 

or, if you have a word insert-block 
that inserts a new block, then all blocks 
from the point of insertion to the end of the 
file (or the block range) would be re-cata- 
loged by: 

: INSERT-BLOCK ( blk# — ) 
DUP INSERT-BLOCK 
LastBlk CAT-BLOCKS ; 

Note that \ : is the only word that needs 
to be added permanently to the resident 
dictionary. 

Use 

The most commonly used words display 
the directory or a screen, load a screen, 
and make additions to the directory. 

TELLDIR displays the entries in 
the directory. 

TELLSCR <ScrName ( s ) > takes the 
next word in the input stream as the name of 
the screen, searches the directory for the 



screen, and displays the screen. For 
example, TELLSCR DOCl looks in the 
directory for the entry DOCl and displays 
the screen. 

LOAD SCR takes the next word in the 
input stream as the name of the screen, 
searches the directory, and loads the block 
identified as the logical screen. For 
example, LoadScr LOADER looks in the 
directory for the entry LOADER and loads 
the appropriate block. 

Additions are made by cataloging a 
block (or range of blocks). The cataloging 
routines check for conflicts caused by two 
blocks with the same name or by the same 
block with two names. Conflicts are re- 
solved by removing the earlier of the con- 
flicting screens from the directory and 
adding the more recent one. 
CAT-BLOCK catalogs a single block. 
CAT-BLOCKS catalogs a range of blocks. 
CatFile reinitializes the directory and 
catalogs the file. 

Enhancements and Extensions 

These routines use the Forth screen as 
the logical unit. They could just as easily 
catalog words, instead, by searching the 
entire block for : or CODE, by establishing 
another convention to define a logical 
module. It would probably be necessary to 
allow for more than one directory block, 
adding another two bytes to the parameter 
field for the offset into the block. 

If your Forth runs under a file system, 
then with a screen directory and a few 
additional words to open and close files, 
you have a library facility. This can be used 
explicitly, as in 

LOADSCR SQUARE-ROOT from 
MATHLIB.FTH 

(in which case it becomes an 'include 
screen' facility), or with a list of unresolved 
references. The words that maintain the 
block directory can be easily adapted to 
maintaining other lists. 

Implementation 

The new words are straightforward and 
simple. Compatibility between Forth ver- 
sions is another matter altogether. To im- 
plement these screens, please read the sec- 
tions below, then check for possible prob- 
lems, duplication, and equivalence in the 
utility and support screens in the listing. 
The compatibility screen should be modi- 
fied for your system. Note that some words 
have been simplified for this listing. 



NOW FOR IBM PC, XT. AT, PS2 
AND TRS-«} MODELS 1 .3, 4, 4P 

The Gitted 
Computer 

1 . Buy MMSFORTH before year's end, 
to let your computer work harder and 
faster. 

2. Then MMS wilt reward it (and you) 
with the MMSFORTH GAMES DISK, 
a $39.95 value which we'll add on at 
no additional charge! 

MMSFORTH is the unusually smooth 
and complete Forth system with the 
great support. Many programmers report 
four to ten times greater productivity 
with this outstanding system, and MMS 
provides advanced applications pro- 
grams in Forth for use by beginners and 
for custom modifications. Unlike many 
Forths on the market, MMSFORTH gives 
you a rich set of the instructions, editing 
and debugging tools that professional 
programmers want. The licensed user 
gets continuing, free pivone tips and a 
MMSFORTH Newsletter is available. 
The MMSFORTH GAMES DISK includes 
arcade games (BREAKFORTH, CRASH- 
FORTH and, forTRS-80, FREEWAY), 
board games (OTHELLO and TIC-TAC- 
FORTH), and a top-notch CRYPTO- 
QUOTE HELPER with a data file of 
coded messages and the ability to en- 
code your own. AH of these come with 
Forth source code, for a valuable and 
enjoyable demonstration of Forth pro- 
gramming techniques. 
Hurry, and the GAMES DISK will be our 
free gift to you. Our brochure is free, 
too, and our knowledgeable staff is 
ready to answer your questions. Write. 
Better yet, call 617/653-6136. 




and a free gift! 

GREAT FORTH: 

MMSFORTH V2.4 $179.95' 

The one you've read about in FORTH: A 
TEXT & REFERENCE. Available for IBM 
PC/XT/AT/PS2 etc., and TRS-80 M.I, 3 
and 4 

GREAT MMSFORTH OPTIONS: 

FORTHWRITE $99.95* 

FORTHCOM 49.95 

DATAHANDLER 59.95 

DATAHANDLER-PLUS* 99.95 

EXPERT-2 69.95 

UTILITIES 49.95 

'Single-computer, single-user prices; cor- 
porate site licenses from $1,000 additional. 
3'A" format, add $5/disk; Tandy 1000, add 
$20. Add S/H, plus 5% tax on Mass. orders. 
DH+ not avail, tor TRS-80s. 

GREAT FORTH SUPPORT: 

Free user tips, MMSFORTH Newsletter, 
consulting on hardware selection, staff 
training, and programming assignments 
large or small. 
GREAT FORTH BOOKS: 

FORTH: A TEXT & REF $21.95* 

THINKING FORTH 16.95 

Many others in stock. 

MILLER MICROCOMPUTER SERVICES 
61 Lake Shore Road, Natick, MA 01760 
(617/653-6136, 9 am - 9 pm) 
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Compatibilities 

WORD 

In fig-FORTH and my current 
versions, word does not return an 
address, word is, therefore, followed 
by HERE. Starting with Forth-79, 
word always returns an address. 
Check your implementation; if word 
does return an address, delete here 
from this listing when it follows word. 

?IF 

At one point, I seemed to be entering a 
lot of ?DUP IF and ?dup while 
statements in my programs, so I added 
a machine language primitive 
? OBRANCH and the control words ? IF 
and 7WHILE. ?IF can be replaced by 
?DUP IF, or a word ?IF can be de- 
fined to compile them as described in 
the listing. Note that ?DUP and IF must 
be individually compiled into the word 
with the IF ... THEN structure. 

-CMOVE 

If -CMOVE isn't in your system, look 
for <CMOVE. These words move bytes, 
starting from the end of the bytes to be 
moved instead of the beginning. To 
work properly with this listing, 
-CMOVE should be able to handle a 
move of zero bytes. 

SCREENS, BLOCKS, and BUFFERS 

A screen is not necessarily the same 
thing as a block, nor is a buffer. It simpli- 
fies things when they are, and many 
Forth systems — including mine — 
choose the simple route. If this is not the 
case with your system, see the discus- 
sion below of core words for help. 

PICK and ROLL 

These are zero-indexed in Forth-79 and 
Forth-83 systems. fig-FORTH and 
some others are one-indexed. 

Upper- and lower-case 

Forths differ in how upper- and lower- 
case letters are treated. I believe use of 
cases makes listings easier to read, so I 
have kept this listing as it is in my 
system. 

Block zero 

Block zero is used for the directory 
block in this listing. This block will not 
be available on all systems, and may 
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return the address of the text input 
buffer (TIB). The only requirement is 
that the word &DirBlk return the 
address of the area being used for the 
directory. Any block or memory area 
can be used. See the discussion of core 
words, and the related screens. 

&l 

For my 32-bit 808x Forth, & I indicates 
that a 32-bit address (in the form seg- 
ment-offset) is to be returned. In prac- 
tice, I have also found this is a conven- 
ient mnemonic to differentiate ad- 
dresses from data, so I have left it in the 
listing. 

Core Words 

The words &DirBlk, sBDE, 
oBdDAT, and bdPAFiAMS are at the root 
of all other words. By changing them, dif- 
ferent-sized parameter fields, multi-block 
directories, memory-resident directories, 
and directories of different sizes can be ac- 
commodated, and the routines can be 
adapted to other applications. 

SDirBlk 

Returns the address of the directory. 
Block zero is used as the directory. A 
logical block zero may not be avail- 
able; any convenient block or alloca- 
tion scheme can be used. It is only 
required that SDirBlk return the 
address in memory. 

sDirBlk 

Returns the size of the directory. Note 
that a buffer and a block cannot be the 
same size. 

oBdDat 

The offset to block-directory data. This 
simply reserves space for a block 
header, and is arbitrarily set to ten. 

SBDE 

The size of block-directory entry. An 
entry consists of a string and a two-byte 
parameter field. The size of the entry is 
simply the size of the string, plus two 
bytes for the parameter field, plus one 
byte for the string's length. 

bdP ARAMS 

The block-directory parameters. It re- 
turns the address of the start of the 
entries, the address of the limit of the 



Volume X, Number 4 



NGS FORTH 

A FAST FORTH, 
OPTIMIZED FOR THE IBM 
PERSONAL CC»iFUTER AND 
MS-DOS COMPATIBLES. 



STANDARD FEATURES 
INCLUDE: 



•79 STANDARD 

•DIRECT I/O ACCESS 

•FULL ACCESS TO MS-DOS 
FILES AND FUNCTIONS 

•ENVIRONMENT SAVE 
& LOAD 

•MULTI -SEGMENTED FOR 
LARGE APPLICATIONS 

•EXTENDED ADDRESSING 

•MEMORY ALLOCATION 
CONFIGURABLE ON-LINE 

•AUTO LOAD SCREEN BOOT 

•LINE & SCREEN EDITORS 

•DECOMPILER AND 
DEBUGGING AIDS 

•8088 ASSEMBLER 

•GRAPHICS & SOUND 

•NGS ENHANCEMENTS 

•DETAILED MANUAL 

•INEXPENSIVE UPGRADES 

•NGS USER NEWSLETTER 

A CCMPLETE FORTH 
DE^ELOPMEm" SYSTEM. 



PRICES START AT $70 

NEW^HP-150 6 HP-110 
VERSIONS AVAILABLE 

NEXT GENERATION SYSTEMS 
P.O.BOX 2987 
8AMTA CLARA, OA. 95055 
(408) 241-5909 



OA 



SquareRoot 



11 -byte 
name field 



08 



_ 2-byte par- _ 
ameter field 



Figure One. A block-directory record has a name field (string) 
and a parameter field (hard-coded as two bytes, in this applica- 
tion). In this example, the screen named SquareRoot starts on 
block eight. 



Header 



Data area. . 



< — 

Padded with zeros 
— > 



First entry 



Entry 



Last entry 



Figure Two. Block-directory format. 



(Text continued on page 18.) 



I F83 USERS 



PVM83 is a complete Prolog extension to Laxen and Perry F83. 
It handles the primary data structures of strings.numbers.logical constants, 
logical variables, compound predicates, and lists. PVM83 is designed to add 
productivity and flexibility. It is fully interactive between Prolog procedures, 
and Forth code. PVM83 is a compiled Prolog featuring fast execution times. 

PVM83 is fully extensible. "Standard" definitions gives the 
programmer flexibility to design just those procedures needed for his 
application. PVM83 code can execute Forth words. F83 can call the PVM83 
backtracking and problem solving capabilities. 



PVM83 code is Incrementally 
complied in higher memory segments 
than the F83 core, leaving room in 
the F83 kernal for the "standard" exten- 
sions or other F83 code that the pro- 
grammer needs. 

PVM83 is designed to keep the 
Forth philosophy of being both 
compiled, and interactive. You can type 
in procedures from the keyboard and 
test them, or supply source code from 
Forth block files, or text files 

Intersegment memory management 

source code included. 



I PVM 83 

only $69.95 
includes manual 

requires 
DOS 2.0 or higher 256K HAM 

Concept 4 

PO Box 20136 
VOC Az 86341 
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3 LOAD i LOAD 9 LOAD ;S 

Screen Directory / Directory Block 
David Cornell 03-13-1937 

To mpleient; 

1. Check coBpatibilitVi utility and Core Word screens, 

nod if y as required for your systen 
'i, LOAD screens 3, 6 and 9 
3. Identify screens to be cataloged with 
\: <niie> on the top line 
execute CatFile to initialue the directory 
5. after that, use Cat-Block and Cat-Blocks to 

saintain the screen directory, and/or 
a. ReDefine existing words that nanipulate screens 
to exit to Cat-Block or Cat-Blocks 



Doc USE 

TELLDIR - Display Director.- 

TELLSCR <naiie> - display screen xitr^ nase' 

nl n2 Cftl-BLQCK - Catalog blocks nl rid- acia to 
directory if identified as a logical screen o-' 
'\\ <na«e;" on top line 



n CAT-BLOC^; 



Catalog a single oioct 



CatFile - initiaiue directory, caulog a file or range 
as defined by 1 to LastBik 

LOADSCR ';naiie> - loads the screen identified bv naie 
in the directory 



i define \ \; ) 

( 

Skips to end of Line, all input fron 'y to end of line is 
treated as a co««ent 

This Nord wst be in the systeii. Screens are docusented 
(tith "v" and it is use to define "\s" faelon 

) 

: \ C/L )IN S Over HOD - ;IN +! i IMMEDIATE 
: \: [COMPILE] \ ; IMMEDIATE 



\: Coiuenting Conventions 

I - the address of a counted string, Ut byte is length byte 
! - either, eg, adr 1 0, = an address or 
BD or bd - "Blk Directory" related word 

E»bedded "$" - argument is the address of a string 

eg. bd$Find, expects a string address on the stack 

Eibedded "-" - 'expects arguaentis)', used occasionalU ' 
to differentiate between related words 
eg. cat-block: ChT-BLOCKS CatFile 
CatFile does not require an argument, others do 

5 - as prefix, "Size' 

c - as prefix, "Count of" 

\ - as prefix, "Address, Address of" 

p - ax prefix, "Pointer to" 



\\ DOC Conpatibility 

Screen H, -CMove, nove fro* end. Also <CMove or a "ssart" CMove 
that can recognize overlap. NOTE: this word «ust be 
able to handle a length tove 

Screen 6, WORD HERE, This is FIG Conpatible, other 
Forths will PROBABLY return an address after 
WORD. In that case, delete 'HERE' when is follows 'WORD' 

Screen 15 (bdCQNFLlCTi uses the truth value for arittiietic 
and requires that TROE = 1, if TRUE is -1 on your 
systet, add ABS after each of the two compares 

Screen 1" >£R, 2R> 
Sane 35 >R /R, R> R> 

Pick, Roll are relative. OK for "9/33. FI5 is 1 relative 



00 


\; Syste* Dependent 




01 






02 


; LastBlk \ — nBix, returns last dU in 


file or range 


03 






Oi) 


! Hord$ \ Deliti -- J . as tiORu but returns 


string address 


05 


\ tt sisplified far this listing ** 




06 


\ if only usea at coBpiie ti»e, wGRD say be sufficient 


07 


\ for Forth79/a3. HERE not repuirea 


seiow 


08 
09 


■■EiEC m\l HERE PAD V. PAD ; 




10 


: UndColsMa» -- n, returns Max Cols in cu 


'-r-nt r.spUv •moo* 


11 


\ general purpose aefault is wiath o*" CR 


i screen 


IE 


50 ; 




13 


: .SCRN \ nScr -- . favirite screen diss 


.3* '"■.utme. 


U 
15 


LIST i \ general purpose aetault 





Forth Dimensions 



12 



Volume X, Number 4 



utility 

j: luct: \ nl nc -- nd nl nt^ opposite of "uver" 
I swap Liver ! 

j: BUUNLiS \ Adr Len — Li«it Index, sets up DO Loop 
i Over + Swap ; 



COHPILE I ; 



IMMEDIATE \ see text 



! ?IF \ ease as fDup IF 

'COMP Coiipile 'Dup [CQMPILEl IF ; IMMEDIATE \ see text 

: Countt COUNT t ; 

: 0! SWAP ! ; -> 



— d 



i.: UtihtyS / string Support 



LEN \ $ — rii returns length of a counted string 
Li ; 

! \ i adr, store string at adr, stores len byte 
Uver $Len 1+ LMove ; 

Move v i adr , iove str to adr, length byte NOT ioved 
St<ap Count Rot Swap C«ove ! 

\ i print a Counted String 
Count Type ; 

= \ *1 $S — t/f, sbs compare see text 
Dup $Len 1+ Snap -Text 0= ; 

== \ $1 Vi -- t/'f, cospare strings, ignore case 
*= ; V u/1 case not supported this listing 



\: CORE WORDS - sote systei dependent 

10 CONSTANT oBdDAT \ offset to data in blk directory 



iDirBlt BLOCK i 
sDirBlk B/'Buf i ; 
sBdE \ iAdrNsMField 
»Len 3 + ; 



\ address of Directory Block 
\ 5126 of Directory Block 
- SizeBlkDirEntry 



-iC \ adr n — adr c , skips leading O's, Count of O's 
Over >R DO Count IF 1- LEAVE THEN LOOP Dup R> - ; 

bdParans \ -- ^Entries iLisit cAvailBytes, 

ISuBlk oBbDat + \ Start Address Data 

sDirBlk oBdDat - y nax size data 
aDup + >R 

-ZC R;- Swap i — > \ iNases sAvail 



— 10 - 
\: bd$Find 



bd*Find \ » -- iEntry I 

bdParass Drop Swap 

BO 

Dup 41 $== 

IF Drop il LEAVE THEN 
II sBDE 
+LOOP IF FALSE THEN ! 



r 
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\: H3»eToNuiber Uords , 
: $-;BlK \ i - BlkNuuber 

bd$Fir.d ?IF COUNT+ S ELSE THEN i 

: n-zBLK 

i->BLii, CUP FAILS ABORT" Screen not m Directory " ; 
; ,$SCR > * — , display screen identified by * 

J-:BLk HF ,SCRN THEN ; 
I; IlOAD \ $ — , loads screen identified bv $ 
i ^l-/BLt' LOAD ! 

■. ; bf : -- n • tikes next word as blk identifier, 
; EL wORDI H-;BlK ; \ eg. BLK> LOADER 

i ! lGADSCR \ -- , next word is name of screen to load 
i Bit.' LOAD : Uses LoadScr '.Scree nHsw; 

j; IElLSCR BLK; .SCRN ; \ ose; , IElLSCR (ScreenNaiie; 



00 
01 
02 
03 
Oil 
05 
Os 
07 
08 
09 
10 
11 
15 
113 

Ih 

il5 



_ 12 

: TellDIR vii — cursor carried TOS, requires UndColsMax 

TellDir \ — , prints dir entries in 14 col field 
HndColsMax 1- bdParans Drop Swap \ cursor posn carried TOS 
DO 



Dup 

-li AND 16 t II $Len + 
WndColsMax /MOD 

IF Swap Drop CR 
ELSE Dup -16 AND 
Rot - Spaces 
THEN 

U Count WndColsMax Mm \ don't wrao narrow window 



\ copy current csr posn 

\ cursor posn after print 

\ exceeds Hnd Line Len ' 

\ yes, start new line 

\ No, 

\ Pad to start of field 



TfPE 
>A sBDE 
+LQOP Drop 



+si:e this entry -> next 
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15 .... 




1 i 




\t bdAdd ♦ pick rel 


00 


\: bdDel bd$Delete 








01 


\ src = pFirsttntry, Dest = pFirstEntry + sEntry. 






: bdAdd \ n * — , add » to BlkDir tgith Param n 


OS 


\ count = pEntry - pFirstEntry, requires ssart Cmove or -Csove 






Cup sBDE bdParans \ n % sReq pEntries iLimt nAvail 


03 








3 PICK < 


04 


: bdDel \ WdNF — , delete entry at address 






ABORT' No Root In Directory Block" 


05 


>R bdParaes SDrop \ adr Ist Entry 






Drop \ linit not used, n $ s pE 


06 


RS sBDE 






Swap - \ n 1 Dest, final dest = new start of bdNates 


07 


EDup Over *• \ pEntries sEntry Src Dest 






Tuck $! 


08 


Over R> Swap - \ pEntries sEntry Src Dest Count 






Count+ ! UPDATE ( FLUSH ) i 


09 


-CMove v »♦ -CMove lust handle Len »ov6 »* 








10 


Erase \ aamtain leading O's 








11 


UPDATE ; \ »» caller guarentees FLUSH 




(*» taller must FLUSH buffers. This assuees that an UPDATEd 


18 








buffer Hill not be reused until it is flushed, if in doubt, 


13 


: bd$Delete \ $ — , search for entry, delete if found 






*t include FLUSH in bdAdd. The sane reasoning applies to 




bdJFind ?IF bdDel THEN ; -> 






«♦ bdDel in the next screen. 


15 














\: bdCQNFLlCT * pick rel 


00 


\: AddToBd bdTell 






! bdiflct? \ n i iEntry Li«it - pEntry flag 1 FALSE 


01 
OS 


: bdTell \ bdNaae - , tell Naoie i Blk of entry 






\ flag! 2 Sane. 1 Changed, doesn't exist 


03 


Dup $. ." - " Count+ 3 U. ; 






Swap DO 


O'l 








Over U Count+ S = \ requires TRUE = 1 «* 


05 


; AddToBd V nBlk * — adds entry, checks for conflict 






Over U i= + \ »♦ requires TRUE = 1 ♦« 


06 


\ prints message with old parans if replaced 






'IF -Rot EDrop \ ♦* .add ABS after = and %= ♦* 


07 


\ conflict say come fro» sane naiie or sane blkt 






M Swap LEAVE \ preserve flag 


OB 


BEGIN SDup BdConflict? 






THEN 


09 


Dup 1 = 






il sBDE 


10 


WHILE Drop 






+LOOP \ n $adr 1 Flag 


11 


Dup CR ." Replacing " bdTell 






IF Drop False THEN ; 


13 


bdDel 








13 


REPEAT 






: bdConflict? \ n $ -- pEntry flag 1 FALSE 


Ih 


0= IF bdAdd ELSE Drop SDrop THEN ! -; 






bdParaiis Drop bdCflct? i — > 


15 














\: CATALOG -- add to blk dir if flagged as Dir Entry Screen 


00 






: icatblk) \ n — , catalog block n 


01 






Blk i >1N 3 >2R 


02 






Blk ! >IN 0! \ check top line of screen 


03 






BL «ORD* " \:" *= \ for identifier ... 


Oh 






IF Blk J Bl WORD* AddToBD \ If found, add entry to BlkDir 


05 






THEN £R> >IN ! Blk ! i 


06 






: CAT-BLOCK \ Blk - 


07 






icatblk) FLUSH ; 


08 






: CAT-BLOCKS \ Blkl Blkn ~ 


09 






1+ Snap 00 I (CatBlk) LOOP FLUSH ; 


10 






: IniBd \ — , initialiie Blk Dir, erases blk, writes header 


11 






WuBlk sDirBlk Erase 


la 






" \! BD" IDirBlk $MOVE UPDATE FLUSH J 


13 






; CatFile \ — , catalog entire file 


u 






IniBd 1 LastBlk Cat-Blocks ; 


15 
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F83 

STANDALONE 

APPLICATIONS 

JAMES F. BALL - COLUMBUS, OHIO 



Standard System Load Screen // 1 

Scr # 1 A:EXTEND86.BLK 

( Load Screen to Bring up Standard System 07Apr8Amap 

1 ) CR .( Loading system extensions.) CR 

2 2 VIEW# ( This will be view file# 2 ) 

3 WARNING OFF 
4 

5 3 LOAD ( BASICS ) 

6 6 LOAD ( FILE-INTERFACE ) 

7 FROM CPU8086.BLK I LOAD ( Machine Dependent Code ) 

8 FROM UTILITY. BLK 1 LOAD ( Standard System Utilities ) 
9 

10 WARNING ON 

11 -> 
12 

13 
14 
15 

Modified Load Screen # 1 

Scr // 1 A: EXTEND 8 6. BLK 

\ Load Screen to Bring up Application System JFB880601 

1 CR . ( Loading application ) CR 

2 2 VIEW# ! ( This will be view tii-J 2 ) 

3 WARNING OFF 
4 

5 3 LOAD ( BASICS ) 

6 6 LOAD ( FILE INTERFACE ) 

7 FROM CPU8086.BLK 1 LOAD ( Machine Dependent Code ) 

8 FROM UTILITY. BLK 1 LOAD ( Standard System Utilities ) 
9 

10 FROM APPL.BLK 1 LOAD ( Loads your application ) 
11 

12 WARNING ON 
13 

14 --> 

15 



This article describes how to generate 
a self-executing appUcation for any F83 
program. In order to accomplish this task, 
a modified Forth system containing your 
application is created through the meta- 
compilation process. 

Background 

I have no experience with other pro- 
gramming languages, and am a self-taught 
Forth user (Laxen and Perry's F83 on an 
IBM PC). My main textbooks for learning 
Forth have been Starting Forth by Leo 
Brodie, Mastering Forth by Anderson and 
Tracy, Inside F83 by C.H. Ting, Ph.D., 
and Forth Dimensions. I have also found 
that my hard copy of the various F83 
screens (including shadow screens) 
proves as valuable as a written manual. 



^^Creating a standa- 
lone application is 
not so compli- 
cated,,.*' 



One problem I encountered as a result 
of choosing Forth as my first program- 
ming language, was that once I learned the 
fundamentals, finding F83-specific or 
machine-specific guidance was difficult. I 
wanted to create a self-executing applica- 
tion in F83 , but I was uncertain that I could 
accomplish this task, based on my limited 
Forth background. 

Metacompilation 

As it turned out, creating a self-execut- 



ing application was not so complicated. The 
solution came primarily from Inside F83. 
The process of metacompilation and run- 
ning the metacompiler is described in chap- 
ter 25. Metacompilation is the process of 



creating a new system out of the existing 
system. This allows one to create a modi- 
fied Forth kernel (KERNEL.COM), 
which is necessary for the creation of a 
standalone application. 
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In order to create the metacompiled 
KERNEL.COM (which will later be used 
to generate your application), the follow- 
ing F83 files (only) should be copied onto 
a working diskette: 
F83.COM 
META86.BLK 
KERNEL86.BLK 

Next, open the META86.BLK in F83, 
and load the first block as follows: 
A>F83 META8 6.BLK 
1 LOAD 

This begins the metacompilation process. 
After the process is complete, the 
KERNEL.COM file will be created on the 
working disk (check your directory). The 
12K KERNEL.COM is a stripped-down 
version of F83 and becomes the core of 
your appUcation. 

Creating Your AppUcation 

If you aren't using the high-density, 
3.5" diskettes d la PS/2, you'll need to take 
steps to avoid running out of space on your 
disk. After you have created the 
KERNEL.COM file on the working disk, 
return to DOS and erase the 
KERNEL86.BLK and the META86.BLK 
from the working disk, in order to conserve 
disk space. Then, copy EXTEND86.BLK, 
CPU8086.BLK, UTILITY.BLK, and your 
application (APPL.BLK) onto the work- 
ing disk. 

At this point, the following files should 
be on the working disk: 
F83.COM 
KERNEL.COM 
EXTEND86.BLK 
CPU8086.BLK 
UTILITY.BLK 

APPL.BLK (containing your F83 applica- 
tion) 

Next, open EXTEND86.BLK using 
F83, and make the modifications shown in 
Figure One to standard system load 
screens 1 and 2: 

A>F83 EXTEND86.BLK 
1 EDIT 

Your application should be written so 
that it will load from the first block. By 
using the FROM command (see modified 
load screen 1, line 10), your application is 
loaded. The technique of using FROM and 
1 LOAD to load your application is mod- 



08MAY84HHL 



Standard System Load Screen // 2 

Scr # 2 A:EXTEND86.BLK 

\ Load up the system 

1 : HELLO ( S — ) 

2 CR ." 8086 Forth 83 Model " 

3 CR ." Version 2.1.0 Modified 01Jun84 " 

4 START ONLY FORTH ALSO DEFINITIONS ; 

5 ' HELLO IS BOOT 

6 \ 13 LOAD ( Configuration: change and load as desired. ) 
7 

8 : MARK ( S ~ ) 

9 CREATE DOES) (FORGET) FORTH DEFINITIONS ; 
10 MARK EMPTY HERE FENCE ! 

11 

12 CR .( System has been loaded. Size = ) HERE U. 

13 SAVE-SYSTEM F83.COM 

14 CR .( System saved as F83.COM ) 
15 

Modified Load Screen # 2 

Scr # 2 EXTEND86.BLK 

\ Load up your application JFB880601 

1 : HELLO (S — ) 

2 START ONLY FORTH ALSO DEFINITIONS 

3 RUN-APPL ; \ Where RUN-APPL executes 

4 \ a program in APPL.BLK 

5 ' HELLO IS BOOT 
6 

7 : MARK (S — ) 

8 CREATE DOES> (FORGET) FORTH DEFINITIONS ; 

9 MARK EMPTY HERE FENCE ! 
10 

U SAVE-SYSTEM APPL.COM \ vmere APPL is a unique name 
12 \ for the program. 

13 

14 BYE \ Exit F83; Type APPL to run your application. 

15 



eled after the method used by Laxen and 
Perry to load the utility and CPU system 
extensions (see standard system load 
screen 1, lines 7 - 8 in Figure One). 

The next step is most crucial, to make 
your application self-executing. In the 
modified load screen 2, the application 
word which causes your program to exe- 
cute (using RUN-APPL as an example) is 
added into HELLO, and a unique name (for 
example, APPL.COM) is assigned with 
SAVE-SYSTEM (line 13). 

Finally, open the modified 
EXTEND86.BLK using the newly gener- 
ated KERNEL.COM, then load the first 
block via the following command: 

A>KERNEL EXTEND8 6.BLK 
1 LOAD 

Once the loading is complete, the appli- 
cation APPL.COM will be created on the 
working disk, ready to run by typing the 
application's filename at the DOS prompt: 



A>APPL 

Conclusion 

Your program will now run as a self- 
standing, executable application. It can be 
copied to another disk for disdibution 
without the F83 system file. The F83 ker- 
nel itself (KERNEL.COM) is incorpo- 
rated as part of your APPL.COM. The 
kernel consumes about 25K of disk space. 
However, by further editing out non-es- 
sential Forth words from 
EXTEND86.BLK and the related 
CPU8086.BLK and UTILITY.BLK 
(prior to creating theKERNEL.COM), the 
application's size can be reduced. For this 
reason, a customized KERNEL.COM 
might be created for each application. 

Finally, by creating a simple user inter- 
face that prevents access to theF83 system 
(by limiting the vocabulary and providing 
appropriate error checking), one can cre- 
ate a professional, standalone application. 
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Application Blocks (APPL.BLK) 



Scr # 1 



\ 

1 : 

2 

3 : 

4 : 
5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 



TAX TIPS: INTRODUCTION 
LOCKUP -2 AT ; 
VARIABLE ROW 1 CONSTANT 
RESTORE 1 ROW ! ; 
SIDES ROW @ 2+ DUP ROW 
219 EMIT SPACE ; 
RESTORE 8 DO 
RESTORE 8 DO 
40 DO SPOT LOOP 
1 AT BAR ; 
19 

7 
9 



.LEFT 79 CONSTANT .RIGHT 



SPOT 

LSIDE 

RSIDE 

BAR 

TOP 

BOTTOM 
INTRO 



! AT ; 

LEFT SIDES SPOT 
RIGHT SIDES SPOT 



LOOP 
LOOP 



1 
1 
24 
24 
24 
24 



AT BAR ; 

AT ." INCREDIBLE SOFTWARE PRESENTS 
AT ." TAX TIPS 



15 AT 
17 AT 



Programmed in F83 " 
By James F. Ball" LOCKUP 



BOX 



DARK TOP LSIDE RSIDE BOTTOM 



-> 



Scr # 

\ 

1 : 
2 

3 
4 

5 : 

6 : 

7 : 
8 

9 : 
10 
11 
12 
13 
14 
15 



TIP ONE 

TITLE 
11 3 
U 5 
II 7 

REDO 



IRA DEDUCTION 



AT ." TAX TIP 1: IS YOUR IRA CONTRIBUTION DEDUCTIBLE?" 
AT ." Answer the questions below by entering either: " 
AT ." Y = Yes " 11 8 AT ." N = No " ; 
DARK TITLE U 11 AT ; 
UNSTACK DEPTH ?D0 DROP LOOP ; 

Y/N BEGIN KEY 95 AND DUP ASCII Y = SWAP ASCII N = 

2DUP OR UNTIL DROP ; 
PLAN? REDO ." Are you or your spouse covered" CR 11 SPACES 

." by a retirement plan at work? " Y/N ; 
AMOUNT? REDO ." Is your adjusted gross income " ; 
RERUN? 11 19 AT ." Press Esc to quit or" 11 20 AT 
." any key to repeat." ; 

NO-PLAN REDO 

." Your IRA contribution is 100% tax deductible" ; — > 



Scr # 3 



\ 

1 : 

2 : 

3 
4 

5 : 

6 : 

7 : 

8 : 

9 : 

10 : 

11 : 
12 

13 : 

14 

15 



TIP ONE: IRA DEDUCTION 

NO-DEDUCTION ." Your IRA contribution is not deductible. 
PARTIAL-DEDUCTION 

." Your deduction is between $200 and $1,990." ; 
DEFER RETURN 1 DEFER RETURN2 DEFER RETDRN3 
JOINTl ." more than $50,000? 

J0INT2 ." $40,050 - $49,999? ' 

J0INT3 ." less than $40,050? ' 

SINGLEl ." more than $35,000? ' 

SINGLE2 ." $25,050 - $34,999? ' 

SINGLE3 ." less than $25,050 " ; 

RESET ['] SINGLEl IS RETURNl ['] SINGLE2 IS RETURN2 

[ ' ] SINGLES IS RETURN3 ; 
RETURN? REDO Are you filing a joint return? " RESET 

Y/N IF ['] JOINTl IS RETURNl ['] J0INt2 IS RETURN2 
[ ' ] J0INT3 IS RETURN3 THEN ; — > 



BRYTE I 
FORTH I 

INTEL I 
8031 I 

\ micro- 
controller; 




FEATURES 

— FORTH-79 Standard Sub-Set 
—Access to 8031 features 
—Supports FORTH and machine 

code interrupt handlers 
—System timel<eeping maintains 
time and date with leap 
year correction 
—Supports ROM-based self- 
starting applications 



COST 

130 page manual — $ 30.00 
8K EPROM with manual— $100.00 

Postage paid in North America. 
Inquire for license or quantity pricing. 



Bryte Computers, Inc. 

P.O. Box 46, Augusta, ME 04330 
(207) 547-3218 



(Screens continued on page 37.) 
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TOTALCONTROL 

with LMI FORTH " 




For Programming Professionals: 

an expanding family of 
compatible, high-performance, 
Forth-83 Standard compilers 
for microcomputers 



For Development: 

Interactive Forth-83 Interpreter/Compilers 

• 16-bit and 32-bit impiementations 

• Full screen editor and assembler 

• Uses standard operating system files 

• 400 page manual written in plain English 

• Options include software floating point, arittimetic 
coprocessor support, symbolic debugger, native code 
compilers, and graphics support 

For Applications: Forth-83 AAetacompiler 

• Unique table-driven multi-pass Forth compiler 

• Compiles compact ROf^able or disl^-based applications 

• Excellent error handling 

• Produces headerless code, compiles from intermediate 
states, and performs conditional compilation 

• Cross-compiles to 8080, Z-80, 8086, 68000, 6502, 8051, 
8096, 1802, and 6303 

• No license fee or royalty for compiled applications 

For Speed: CForth Application Compiler 

• Translates "high-level" Forth into in-line, optimized 
machine code 

• Can generate ROMable code 

Support Services for registered users: 

• Technical Assistance Hotline 

• Periodic newsletters and low-cost updates 

• Bulletin Board System 

Call or write for detailed product Information 
and prices. Consulting and Educational Services 
available by special arrangement. 



urn 



Laboratory Microsystems Incorporated 

Post Office Box 10430. Marina del Rey, CA 90295 
Phone credit card orders to: (213) 306-7412 



Overseas Distributors. 

Germany: Forth-Systeme Angelika Flesch, Titisee-Neustadt, 7651-1665 
UK: System Science Ltd., London, 01-248 0962 
France: Micro-Sigma S.A.R.L., Paris, (1) 42,65.95,16 
Japan: Southern Pacific Ltd., Yol<oharra, 045-314-9514 
Australia: Wave-onic Associates, Wilson, W.A., (09) 451-2946 



C Continued from page 6.) 

: OR ( si s2 — or ) 
2SH->D ROT 

OR >R OR >R '.SHADOW ; 

: XOR ( Si s2 — xor ) 
2SH->D ROT 

XOR >R XOR >R '.SHADOW ; 

The redefinition of any of the Forth 
primitives can be extended in this way. In 
any speed-critical application, these 
should be receded in assembly language. 

Darrel Johansen 
Orion Instruments 
702 Marshall Street 



(Continued from page 11.) 

entries, and the number of available 
bytes. The start and the limit are used 
to set up DO ... LOOP searches; the 
count of available bytes is used for 
memory management 

Optimizing 

Each time the block directory is ac- 
cessed, a search is made for the first entry, 
skipping over leading zeros. This is done 
by the high-level word -zc. This can be 
receded in assembly language or replaced 
by a variable maintained in the directory 
header. I have a definite prejudice against 
maintaining (i.e., trying to maintain) flags 
and variables, and I prefer code that fig- 
ures things out from existing information 
(whenever the tradeoffs aren't too oner- 
ous). 

Conclusion 

A lot of ideas that seem clever at the 
time, end up not being used, either because 
they weren't so clever after all, or because 
they were too clever and confused the pro- 
grammer. These Forth words have sur- 
vived initial enthusiasm and have lasted 
long enough — without unduly confusing 
the programmer — to prove their value. 
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USING REGISTERS 

IN DATA STACKS 

DON KENNEY - SAN DIEGO, CALIFORNIA 



T_^ually, Forth systems implement a 
data stack in memory. Because many 
widely used microcomputer CPUs handle 
register operations much more rapidly 
than the analogous memory operations, 
several people have suggested keeping the 
data stack in registers, instead. There are 
real problems with that approach. But 
there is another possibility worth investi- 
gating — that of keeping the top few stack 
elements in registers, and the remainder in 
memory. As this paper shows, such mixed 
stacks can be much faster than pure mem- 
ory stacks. 

First, let's look at memory-based data 
stacks. The problem here is that many 
CPUs don't handle them efficiently. For 
example, an Intel 8088 performs an inter- 
register transfer in two clocks and an inter- 
register ADD in three clocks. On the other 
hand, POPs from memory require 12 
clocks, and PUSHes require 15. ADDinga 
register to memory requires 20 clocks. 
Thus, a simple Forth + implemented as 
POP, ADD-to-memory requires 32clocks. 
If the + could somehow be done in regis- 
ters, it would require many fewer clocks. 

Not surprisingly, some people have 
looked at keeping the data stack in regis- 
ters. There are two problems with this. 
First, there usually aren't enough regis- 
ters. A three- or even six-register stack 
isn't large enough to support complex ap- 
plications, much less recursive algo- 
rithms. Second, the use of any significant 
number of registers in a data stack intro- 
duces another inefficiency, in that data has 
to be moved register-to-register through 
every stack register whenever the stack 
length changes, unlike a memory stack. 
Even though inter-register transfers are 
fast, a register-based stack of reasonable 



size would require far too many of them. 

Let's take a look at a third alternative — 
keeping the top of the stack in registers, and 
the remainder in memory. Table One tabu- 
lates the number of memory and register 
operations required to execute the most 
common Forth run-time words, for stacks 
with varying numbers of words in memory. 
As close examination will show, the effect 
of putting part of the stack in memory is 
different for different words. For example, 
DROP is almost certainly most efficient on 
a pure memory stack, while ROT is almost 
as certainly going to be better with several 
registers atop the stack. 



'^Keeping the top word 
in a register is prefer- 
able,,,^^ 



Table Two tells us that fast memory- 
based stack operations are necessary if one 
expects Forth to run fast. This leads one to 
expect that a dedicated chip like the 
NC4016 could substantially outperform a 
general-purpose CPU with superficially 
better specs when running Forth, unless the 
general-purpose machine happens to be 
optimized for stack handUng. The single 
surprise in the table is that keeping the top 
stack word in a register is slightly prefer- 
able to a pure memory stack even when 
memory operations take no more time than 
register operations. 

The tabulated data shows with higher 
memory:register speed ratios, more stack 
words shouldbe in registers. Butitalso says 
that one word in a register is better than (or 
almost as good as) two, and is never worse 



than three — even for the 8088, which has 
about as large a disparity between register 
and memory operations as one is likely to 
encounter. 

Word frequencies are based on "F83 
Word Usage," by C.H. Ting (forth Dimen- 
sions VII/4). Counts were run on seven 
unspecified F83 files with 230 code 
screens. 

Numbers for memory and register op- 
erations are based on simple algorithms 
that superficially look right They weren't 
tested, or even examined very deeply. 
There may be a clever (or obvious) way to 
cut the number of operations. Some neces- 
sary operation may have been forgotten. A 
lot of analysis might change the numbers 
slightly, but it's unlikely that it would alter 
the conclusions. 

Timing for an inter-register transfer 
(e.g., Intel's MOV reg,reg) is used for a 
register operation. An average of PUSH 
and POP times was used for a memory 
operation. Some instruction sets contain 
operations which allow a memory opera- 
tion to be combined with a logic/math 
operation (e.g., ADD reg,mem) so a tim- 
ing-optimized set of basic Forth words can 
and should effectively improve the raw 
access ratios computed above. Perhaps, in 
practice, an 8086 memory:register speed 
ratio is only 3:1. 

Examination of Table Three shows 
pretty clearly that, for a machine with no 
speed penalty for accessing memory, a 
pure memory stack is fine, and that one 
word in a register is about as good. For real, 
general-purpose CPUs which often per- 
form inter-register operations much more 
quickly than memory accesses, it appears 
to pay to carry the top stack element in a 
machine register. For some CPUs, it might 
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Word 


freq. 


pure-mem 


1 register 


2 regist 


ers 


3 regist 


ers 


4 regist 


ers 






mem 


reg 


mem 


reg 


mem 


reg 


mem 


reg 


mem 


reg 


@ C@ HERE 


0.163 


1 





1 


1 


1 


2 


1 


3 


1 


4 


DROP 


0.049 





1 


1 


1 


1 


1 


1 


2 


1 


3 


ROT 


0.018 


6 





4 


1 


2 


2 





4 





4 


DUP 


0.110 


2 





1 


1 


1 


2 


1 


3 


1 


4 


+ - * AND 


0.163 


3 





1 


1 


1 


1 


1 


2 


1 


3 


SWAP 


0.069 


4 





2 


2 


1 


1 





3 





3 


OVER 


0.045 


3 


1 


2 


1 


1 


2 


1 


3 


1 


4 


1 


0.065 


3 





2 





2 





2 


1 


2 


2 


R> >R 


0.049 


1 





1 





1 


1 


1 


2 


1 


3 


12 3 


0.200 


1 





1 


1 


1 


2 


1 


3 


1 


4 


1+ 2+ 2* 


0.064 


2 





























Weighted sums: 


1.98 


0.10 


1.17 


0.89 


1.02 


1.41 


0.91 


2.43 


0.91 


3.28 



Table One. Register and memory operations required for common Forth words. 







pure-mem 


1 register 


2 registers 


3 registers 


4 registers 


1:1 


6809 


2.071 


2.063 


2.429 


3.346 


4.194 


2:1 




4.047 


3.235 


3.449 


4.260 


5.107 


3:1 




6.023 


4.408 


4.470 


5.173 


6.021 


4:1 




7.999 


5.581 


5.490 


6.087 


6.935 


5:1 


80186, 8086 


9.975 


6.754 


6.510 


7.000 


7.848 


6:1 


8088 


11.95 


7.926 


7.531 


7.914 


8.762 



Table Two. Operation time with N registers in stack, for various memory:register operation speed ratios. 









pure-mem 


1 register 


2 registers 


3 registers 


4 registers 


1 


1 


6809 


1.00 


1.00 


1.17 


1.62 


2.03 


2 


1 




1.00 


0.80 


0.85 


1.05 


1.26 


3 


1 




1.00 


0.73 


0.74 


0.86 


1.00 


4 


1 




1.00 


0.70 


0.69 


0.76 


0.87 


5 


1 


80186, 8086 


1.00 


0.68 


0.65 


0.70 


0.79 


6 


1 


8088 


1.00 


0.66 


0.63 


0.66 


0.73 



Table Three. Operation time with N registers in stack, relative to pure memory stack, for various 
memory:register speed ratios. 



even pay to put the top two stack elements 
in registers. 

Let's look at two real-world examples. 

For the Intel 808x CPUs, the stack- 
manipulation time saved by using a data 
stack with two words in registers, instead of 
in pure memory, can be expected to be 
between 25 - 35%. Since Forth spends a 
good deal of its time doing non-stack- 
manipulative things, like jumping around 
memory and actually peiforming opera- 
tions on data, the expected time saved by 
using a combined register-and-memory 
stack will be less. Depending on how inef- 
ficient the other operations are, a 5 - 15% 
overall improvement seems a reasonable 
expectation. 



On the other hand, the Motorola 6809 
inter-register operations (e.g., LEA_ 0,reg) 
are only slightly faster than memory ac- 
cesses. The 6809 also has efficient auto- 
increment/decrement memory address 
modes for handling stacks during opera- 
tions on data. Moreover, the 6809 does not 
allow inter-register ADDs or MULs. We 
probably would spend some time analyzing 
before implementing a 6809 data stack with 
a word in a register. We wouldn't use more 
than one 6809 register, and we wouldn't 
expect more than 1-3% overall perform- 
ance improvement thereby. 

If there are any surprises in the above 
analysis, they are that keeping the top stack 
word in a register will probably yield re- 



sults which are either optimal or near op- 
timal, no matter how efficient or ineffi- 
cient register operations are, compared to 
memory operations. To put it a little dif- 
ferently, if you're writing a Forth inter- 
preter from scratch and don't want to do a 
detailed analysis of optimal stack struc- 
tures, put the top data stack element in a 
register; your stack handUng will then 
probably be about as efficient as it can be. 



Donald Kenmy says that, like other 
FIG members, he started off to write 
his own Forth kernel. He got side- 
tracked by the material presented 
here, and his kernel still isn't running. 
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SDS FORTH for the INTEL 8051 

Cut your development time with your PC using SDS Forth based environment. 
Programming Environment 

□ Use your IBM PC compatible as terminal and disk server 

□ Trace debugger 

□ Full screen editor 

Software Features 

□ Supports Intel 805x, 80C51FA, N80C451, Siemens 80535, Dallas 5000 

□ Forth-83 standard compatibility 

□ Built-in assembler 

□ Generates headerless, self starting ROM-based applications 

□ RAM-less target or separate data and program memory space 

SDS Technical Support 

□ 100-1- pages reference manual, hot line, 8051 board available now 

Limited development system, including PC software and 8051 compiled software with manual, for $100.00. 
(generates ROMable applications on top of the development system) 

SDS Inc., 2865 Kent Avenue #401, Montreal, QC, Canada H3S 1M8 (514) 461-2332 



CONSULTANTS 

<i^<K, a national consulting firm, 
has Forth assignments in the Denver area. 

If you are looking for a change, 
and the Rocky Mountians appeal to you, 
please give us a call 
or send your resume to: 

<ll^<I?: 

Beth Kern, Recruiter 
4100 E. Mississippi Ave., Suite 1810 
Denver, CO 80222 
(303) 691-2273 




SOFTWARE ENGINEER 

Join us at Advanced Energy Industries, Inc., the 
technical leader in the design and manufacture of 
high reliability plasma, ion and magnetron power 
processors for the semi-conductor and thin film 
industry. 

Our phenomenal growth rate requires an experi- 
enced software designer who has specific experi- 
ence in microprocessor application software. 

The successful candidate will have 3 years control 
and instrumentation programming experience, one 
year of which must include FORTH. BSEE preferred, 
with minimum of AA degree + equivalent experience. 

Excellent salary and comprehensive benefits. Send 
resume and salary history to Human Resources 
Department, 1600 Prospect Parkway, Fort Collins, 
GO 80525. 

ADVANCED ENERGY INDUSTRIES, INC. 
EOE/M/F/H/V 



ADVANCED 
ENERGY' 
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Forth-83 

MENU-DRIVING 

THE 8250 ASYNC CHIP 

PAUL COOPER - CHATSWORTH, CALIFORNIA 



D epending on how many serial ports 
your PC will support, you can expand or 
shrink this program to fit. The X-16 sup- 
ports COMl, COM2, COM3, and COM4, 
the starting PC addresses of which are (hex) 
3F8, 2F8, 3E8, and 2E8, respectively. Most 
PC clones support only COMl and COM2. 
You will probably, in your entire life, never 
need more than two serial ports. This pro- 
gram does not concern itself with any inter- 
rupt status; we are running in half-duplex 
mode, which is standard for on-the-air 
communication on either HF or VHF ama- 
teur radio bands. This initialization routine 
is part of an RTTY program I wrote for my 
amateur radio starion (K6PY). 

The registers of the 8250 with which we 
concern ourselves are LSR (line status 
register), LCR (line control register), 
DATAL (low data byte), and DATAH 
(high data byte). Table One shows the rela- 
tionship of addresses and serial ports. 

Two bits are necessary to monitor the 
line status register, to determine whether 
there is incoming data or whether the trans- 
mitter holding register is empty. They are, 
respectively, the data-available bit (hex 01) 
and the transmitter-holding-empty bit (hex 
20). These two bits are monitored in the 
words which query the port for data coming 
in and which send a character out to the port 
to be transmitted. We create two constants 
for these bits, DAV and TBE. Variables are 
used for the registers, and a variable B / a is 
named to designate whether you want to 
run Baudot or ASCII. The program auto- 
matically sets Baudot at five bits, 1.5 stop 
bits, and no parity. You may, however, 
select any baud rate from 45.45 up to 56K 
baud (but who would want to run Baudot at 
that rate?). You can see these constants and 



variables listed in screen three. One can 
even run slower than 45.45, but who cares? 

In screen four is the word 
SELECT_ADDR. This word places the 
necessary register addresses in our vari- 
ables, upon the selection at the keyboard. 
ASC 1 1 / BAUDOT ? in screen five places a 
low flag in B/A for ASCII selection, or a 
high (i.e., true) flag for Baudot, with auto- 
matic bitwise selection of word length and 
parity. 

Screen six is a case word, BAUDCASE, 
which leaves the hex representation of the 
numerical divisors necessary to generate a 
16X clock. It is assumed that your appli- 
cable clock is using a 1 .8432 MHz. crystal. 
In the word initcom, which is the main 
word in screen 11, BAUDCASE leaves two 
values on the stack which are port stored in 
DATAL and DATAH. These two values are 
relative to baud rates and can be seen in 
screen seven, which holds the word 
BAUDREQUEST. This word interactively 
accepts the rate selected from the keyboard. 

WORD REQUEST in screen ten allows 
the operator to select any combination of 
word length, stop bits, and parity (only for 
ASCII). As stated earlier, this function is 
automatically set when Baudot is used. 
WORDCASE leaves the value on the stack 
relative to word length, stop bits, and par- 
ity. Then it is port stored in LCR, as shown 
in screen 11, when INITCOM is running. I 
did not make available a six-bit- word func- 
tion, even though the 8250 has that provi- 
sion. You can see how it is done from West- 
em Digital Corporation's excellent data 
book on this chip and others that it manu- 
factures. The only difference is that bits 
zero and one of the hex values, as shown in 
WORDCASE (screen nine), would be 



changed to a value of one for bit zero, and 
zero for bit one. 

To use the routine, the word init- 
COM is entered, which prompts the opera- 
tor for all data. You will see the phrase 8 
LCR @ P C ! on line four of screen 1 1 . To 
begin initialization of the 8250 chip, an 80 
(hex) must be written to the line control 
register. This is akin to a reset — it toggles 
the divisor latch access, so that the chip 
knows it is going to get new data. Unless 
you do this first, as in the program, all will 
be for naught 

I have included in screen 12 the basic 
receive and transmit words associated 
with my RTTY program. ?SI0 queries 
the COM port selected and, if there is a 
character there, it leaves a true flag; if not, 
a false flag is placed on the stack, skey 
brings the character to the stack is the flag 
is true. The sequence would be: 

?SIO IF SKEY THEN 

If a character was brought in, an 
additional emit or other action word 
would perform a task. I merely use this to 
emit the character to the screen when re- 
ceiving an out-station's data; but one 
could DUP it and send it to a printer or, 
possibly, to long storage. Long storage 
could be polled until the count reached 
1024 characters, and then the group could 
be written to disk. (My hard copy comes 
from the ASR-28 teletype machine.) 

The word to send a character out the 
port is SEMIT and its basic structure is 
that of a BEGIN ... UNTIL loop. The 
character to be transmitted is placed on the 
stack, the transmit-buffer-empty bit is 
ANDed with the data derived from a port 
fetch of the line status register; if the result 
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Screen # 2 



sac lt;4"? ('''/iO/Si 



Screen # J 

i RTiy - Constant; and Variables 



oac 16:03 09'12/a6 



INCA'^'R \ n cslls — ■'nane). .. creates indexed array 

CREATE 2S NERE OVER ERfiSE ALLO- ;CODE 

a?, 2 [ii] LEA n PQF flX, n m fix, BX ADD 

AX PUSH NEXT, END-CQDE 



HEX 

01 CONSTANT DAV 
20 CONSTANT TBE 
DECIMAL 



\ data available bit 

\ transsit holding register eipty bit 



VARIABLE $DUrif1Y VARIflELE B/A \ Baudot [-11 or Ascii EOl ts/rx node 

VARIABLE LSR \ line status register of 8250 chip 

; << { lark stack too, to fill indexed array) SPS iDUfWY ' ; VARIABLE LCR \ line control register of 8250 chip 

VARIABLE DATAL \ low data byte 

: » \ Bsark end of fill then fill array VARIABLE DATAH \ hi data byte 

mm » SP* - 6 - OVER ♦ DO 1 ' -2 tLOOP ! --> 



! MWNPftSE 10 DO CR LOOP ; 



Screen # 4 

! RTTY - 8250 Address selection pac 15:32 09/11/86 ) 

HEX 

: SELECT ADDR \ select 8250 port addresses 
CLS 

DOWNPABE OF SPACES 

." «HICH SERIAL PORT ARE YOU GOING TO USE?" CR CR OF SPACES 

vPress A for COND" CR OF SPACES 

<Pre55 B for C0N2>" CR OF SPACES 
." <Pre55 C for C0N3>" CR OF SPACES 

(Press D tor COM*>" KEY CASE 

41 OF 3FB LCR I 3Fe DATAL I 3F9 DATAH ! 3FD LSR ' ENDOF 

42 OF 2FB LCR ' 2F8 DATAL I 2F9 DATAH ' 2FD LSR ! ENDOF 

43 OF 3EB LCR ' 3E8 DATAL ' 3E9 DATAH I 3ED LSR ' ENDOF 

44 OF 2EB LCR I 2EB DATAL ' 2E9 DATAH I 2ED LSR ' ENDOF 
ENDCASE ; 

DECIHAL --> 



Screen # 5 

( RTTY - Ascii or Baudot selection pac 15:32 09/11/86 ) 

HEX 

! ASCII/BAUDOT? \ select one or the other 
CLS DOHNPAGE OF SPACES 

DO YOU NANT ASCII OR BAUDOT TRANSMISSION''" CR CR 
11 SPACES 

." (Press A for ASCII or B for BAUDOT)" 
KEY 
CASE 

( ascii) 41 OF B/ft ' ENDOF 
! baudot) 42 OF -1 B/A I 04 LCR % PC! ENDOF 
( automatic word selection of 5 bits, 1.5 stop bits, parity) 
ENDCASE ; 
DECIMAL 



Screen # 6 

( RTTY - Baud rate Case - BAUDCASE pac 14:23 09/11/86 ) 

HEX 

: BAUDCASE \ case to store the baudrate selected 
CASE 

41 OF 09 D2 ENDOF 42 OF 09 00 ENDOF 43 OF 06 B8 ENDOF 
44 OF 06 00 ENDOF 45 OF 04 76 ENDOF 46 OF 04 17 ENDOF 
47 OF 03 59 ENDOF 48 OF 03 00 ENDOF 49 OF 01 BO ENDOF 
4fi OF 00 CO ENDOF 4B OF 00 60 ENDOF 4C OF 00 40 ENDOF 
4D OF 00 3A ENDOF 4E OF 00 30 ENDOF 4F OF 00 20 ENDOF 
50 OF 00 18 ENDOF 51 OF 00 10 ENDOF 52 OF 00 OC ENDOF 
53 OF 00 06 ENDOF 54 OF 00 03 ENDOF 55 OF 00 02 ENDOF 
ENDCASE ; \ see 8250 data book for these values and 

'\ note that you can program any interiediate 
■ "alue between and 56K baud 

DECIMAL 



Screen # 7 

t RTTY - Baud rate selection - BAUDREQUEST pac 11:53 09/12/86 ) 

VARIABLE KEYPRESS 66 KEYPRESS ! 

5 INDARR RATEl \ establish 1st part of baud schedule 

« 50 66 75 100 110 RATEl » 

12 INDftRR ftATE2 

« 150 300 600 1200 1800 2000 2400 3600 4800 7200 9600 

19200 RftTE2 » \ this is second part of baud schedule 
: BAUDREQUEST \ select the baud rate desired 

CLS ." Select the Baud Rate you ttish:" CR CR 
." Available baud rates are:" CR ." Rate Press Letter" CR 
3 SPACES 45.45" 6 SPACES ." A" CR 
5 DO I RATEl § 5 .R ." .00" 6 SPACES KEYPRESS § EMIT 

1 KEYPRESS +' CR LOOP 72 KEYPRESS ' 
2 SPACES ." 134.50" 6 SPACES ." 6" CR 
12 DO I RATE2 8 5 .R ." .00" 6 SPACES KEYPRESS » EMIT 
1 KEYPRESS +' CR LOOP --) 
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Screen # S Screen # 9 

( RTTY - BAUDREQUEST, cont'd. pac 11:54 09/12/84 ) ( RTTY - Bit size, stop bits, and canty pac 16:06 0W!!/36 

." 38400.00" 6 SPACES ." T" CR ." 56000.00" 6 SPACES HEX 

." U" CR : ttORDCASE \ do action of NQRDREQUES- 

<Pre5S key shottn to right baud rate)" 66 KEYPRESS ' CASE \ choose bit size, stoo bits, and parity 

KEY BAUDCASE ; 41 OF 02 ENDOF 

--> 42 OF OA ENDOF 

43 OF lA ENDOF 

44 OF 06 ENDOF 

45 OF OE ENDOF 

46 OF IE ENDOF 

47 OF 03 ENDOF 
43 OF OB ENDOF 
49 OF IB ENDOF 
4A OF 07 ENDOF 
4B OF OF ENDOF 

4C OF IF ENDOF ENDCASE ; DECIMAL --> 



Screen # JO 

( RTTY - HORDREQUEST bits, stops, parity pac 16:29 09/11/86 ) 
: NORDREQUEST CLS CR 6 SPACES Choose bit length, stop " 
." bits, and parity:" CR 39 SPACES ." Press Letter" CR 



2 SPACES ." 7 bits, 1 stop bit, no parity A" CR 

2 SPACES ." 7 bits, 1 stop bit, odd parity B" CR 

2 SPACES ." 7 bits, 1 stop bit, even parity C" CR 

2 SPACES ." 7 bits, 2 stop bits, no parity D" CR 

2 SPACES 7 bits, 2 stop bits, odd parity E" CR 

2 SPACES ." 7 bits, 2 stop bits, even parity F" CR 

2 SPACES ." 8 bits, 1 stop bit, no parity 6" CR 

2 SPACES ." 8 bits, 1 stop bit, odd parity H" CR 

2 SPACES ." 8 bits, 1 stop bit, even parity I" CR 

2 SPACES ." 8 bits, 2 stop bits, no parity J" CR 

2 SPACES ." 8 bits, 2 stop bits, odd parity K" CR 

2 SPACES ." 8 bits, 2 stop bits, even parity L" CR 



." <Press key to the right of description)" KEY MORDCASE ; --) 



Screen # 11 

I RTTY - INITCOH, initialize serial port pac 12:00 09/12/S6 
HEX 

: INITCOM \ initialize the serial port selected 
SELECT.ADDR 

80 LCR 8 PC BAUDREQUEST DATAL S PC! DATAH 8 PCI 
ASCII /BAUDOT? 

B/A 8 0= IF HORDREQUEST LCR 8 PC THEN CR CR CR 
15 SPACES 

." YOUR PORT IS INITIALIZED... • CR CR ; 
DECIMAL 
--) 



(Screens continued on page 37.) 



is any number other than zero, the charac- 
ter is sent ouL 

Screen two contains some machine 
language words which create an indexed 
array used for setting up the baud rate 
display tables. INDARR is also useful for 
making look-up tables, and is used for the 
Baudot conversion tables in the RTTY 
program. Screen seven shows how tables 
are set up. This program is written in Labo- 
ratory Microsystems' PC/Forth 3.1, a ver- 
sion of Fonh-83. Those of you still using an 
older version from LMI (or a Forth-79 im- 
plementation) must use a 1 rather than a -1 
for a truth flag. Please note that your COM3 
and COM4 port addresses may differ from 
mine; if so, just insert the correct addresses 
where needed in the code. 





DATAL 


DATAH 


LCR 


LSR 


COMl 


3F8 


3F9 


3FB 


3FD 


COM2 


2F8 


2F9 


2FB 


2FD 


COM3 


3E8 


3E9 


3EB 


3ED 


COM4 


2E8 


2E9 


2EB 


2ED 



Table Two. Relationship of serial ports and addresses. 
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CALL FOR PAPERS 



'89 



for the first annual 

Forth Applications Symposium 
on Real Time Software Engineering 

FOUR SEASONS HOTEL • Austin, TX • Feb. 17-19, 1989 

The objective of this symposium is to share, discuss and disseminate recent research 
on and production of real time (software and hardware) computer applications. 
Attendees will hear presentations from industry experts on many topics, including: 



Interrupt Driven Systems 
Programming Environments 
Multitasking / Multiuser Systems 
Parallel Processing 
Fault Tolerant Systems 
Forth Engines and Software 



Specialized Architectures 
Microcontroller Applications 
Industrial Systems 
Computer Networks 
Biomedical Engineering 
Robotics & Machine Intelligence 



Papers for oral and poster presentations are requested from computer professionals 
and other interested parties. Facilities will be available for scientific and technical 
demonstrations. Pre-publication proceedings will be made available to the 
participants at the symposiimi. Vendors of software and/or hardware may request 
exhibit space. Authors should submit an abstract of 250 words or less, typed, double 
spaced by the deadline below. Contributed papers should be previously unpublished 
work. You are not required to present a paper to attend the symposiimi. 

Please send abstracts, and requests for symposium information to: 



Dr. Paul Frenger or Mr. Rick Hoselton 
Technology Information Center, Inc. 
2900 Wilcrest Drive #400 
Houston, TX 77042 
Telephone: (713) 952-1060 



TIMETABLE: 

Receipt of Abstract 
Notification of Acceptance 
Receipt of Final Manuscript 



Jan. 1, 1989 
Jan. 15, 1989 
Feb. 10, 1989 



Sponsored by the ACM Special Interest Group on Forth 

For ACM SIGForth membership information, refer to the above address. 
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Part Three 

DESIGNING 

DATA STRUCTURES 

MIKE ELOLA - SAN JOSE, CAUFORNIA 



Host Abstraction 

Two cascaded fomis of abstraction 
have been suggested to make data objects 
more portable'. One of these is data ab- 
straction. The other is abstraction of the 
host computer. Our chief concern will be 
with abstraction of the host computer in the 
interest of program portabUity. Addition- 
ally, much attention will be given to the 
declaration syntax for portable arrays. 

Forth already hides peculiarities of the 
host computer behind its own data stack, 
return stack, etc. For data structures, how- 
ever, we often have no other choice but to 
write code that depends upon host peculi- 
arities, such as bit-processing widths. But 
not any more. 

By avoiding direct references to host- 
specific quantities, we can write code that 
can be transported to other hosts without 
change. To hide more details about the host 
computer from Forth data objects, the ker- 
nel of every host should include certain 
words. As illustrated in Figure 3-1, only 
about five new words are needed. They 
help translate our intended actions into 
appropriate actions for particular hosts. 

How to Hide the Host 

One of the host peculiarities we need to 
hide is its bit-processing width. Another is 
the number of addresses spanned by a cell 
and a double. 

While we may know the size of a datum 
we wish to skip over during an address 
operation, we don't know how many ad- 
dresses a unit of data will span on an arbi- 
trary host. We can't even say how many 
bytes may be allocated to a given unit, such 
as a cell, although we do know that the 
minimum number must be two bytes. 

Two separate mappings are needed to 



hide these host characteristics. To hide the 
number of bytes per cell, a constant can be 
used. To hide the number of addresses 
spanned by any number of bytes, a mapping 
function is needed. 

The routine that provides a general 
mapping function is BYTES>ADR ("bytes- 
to-addresses"). Once the correctnumber of 
bytes is known, BYTE S >ADR finds the cor- 
responding number of addresses. To dis- 
cover how many addresses are spanned by 
a byte on any host, type: 

1 BYTES>ADR 



''Forth already hides 
peculiarities of the host 
computer,'' 



The resulting value is two for a nibble- 
addressing processor; a more common re- 
sult would be one. 

Note that there is often a non-linear 
relationship between the output and the 
input of BYTES>ADR. A series of inputs 
such as 1,2, 3,4, 5 may produce 1, 1, 1, 1, 
2 as output. Only when the host is a byte- 
addressing processor is there a linear rela- 
tionship between the output and input of 

BYTES>ADR. 

Also note that the definition of 
BYTES>ADR given in Figure 3-1 does not 
take into account alignment requirements 
of a host system. That task is left to individ- 
ual readers to perform as necessary^. Spe- 
cific mappings can be performed by con- 
stants, such as: 

BYTES /CELL (~#bytes ) 

To avoid having to write bytes/ 



CELL BYTES>ADR, both types of map- 
pings can be consolidated as the host-de- 
pendent constant ADR/, ("addresses- 
per-cell-compile"). 

Another convenient constant is ADR/ 
C , ("addresses-per-character-compile"), 
which replaces 1 BYTES>adr. Simi- 
larly, the constant ADR/D, ("address- 
per-double-compile") can help hide de- 
tails about the implementation of doubles 
on a particular host. Together, these 
names give rise to the following simple 
glossary: 

BYTES>ADR ( #bytes ~ #addresses ) 
BYTES/CELL ( - #bytes ) 
ADR/, (~#addresses ) 

ADR/c, (~#addresses ) 
ADR/D, (~#addresses ) 

An additional constant has been in- 
cluded to help with the suite's customiza- 
tion for a particular host This constant is 
BITS/ADR ("bits-per-address"). All the 
other constants and definitions in the suite 
rely, directly or indirectly, upon this value 
and the value of bytes /cell. These 
two constants alone should adapt the suite 
to a new host and, by extension, any appli- 
cations that engage these routines faith- 
fully. (Don't forget that host alignment 
requirements may need to be taken into 
account as well.) 

Usage 

Besides the examples shown here. 
Figure 3-2 offers a portable implementa- 
tion for arrays, along with many extra fea- 
tures. 

To skip over the count byte in a 
counted string, either use 



Forth Dimensions 



26 



Volume X, Number 4 



[ 1 BYTES>ADR ] 
LITERAL + 

or, you can use 
ADR/C, + 

To create a compound data object, 
consisting of a double followed by a nor- 
mal variable value, the following code can 
be used: 

VARIABLE * SINGLE 
VARIABLE *DOUBLE 
: DOUBLES SINGLE 

CREATE 0,0,0, 
DOES> 
DUP *DOUBLE ! 
[ ADR/, 2 * ] 
LITERAL + 
* SINGLE ! 

This example reveals the author's de- 
sire to abstract the data object Through the 
use of *S INGLE and *double, other 
operations should not have to "know" 
about the physical layout of the compound 
object. 

To create a declarator for a Forth jump 
table, try: 

: CASES -OF ( #cases - ) 
CREATE 

DO FIND , LOOP 

DOES> ( idx <pfa> ~ ) 

SWAP ADR/, * + 
e EXECUTE ; 

3 CASES-OF TH-QUITTER 
ABORT QUIT BYE 

Notice that CASES-OF uses FIND to 
leave a cell on the stack which is later 
compiled by , (cell-compile). At run-time, 
these code fields are restored to the stack 
by @ (cell-fetch). Although they are being 
manipulated as if they were cells, values 
fetched and stored this way must still be 
executable addresses. 

Array Design Considerations 

To correctly index an array, the ad- 
dresses spanned by each of the elements in 
the array must be known. To produce ar- 
rays of cells, doubles, or bytes using a 
single array declarator, the width of the 
elements should be recorded in the in- 
stance object itself. By recording this value 
in bytes and using byte s> ADR when in- 



dexing the array, an array declarator is pro- 
duced that can be transported to many dif- 
ferent hosts. 

Consider the following definition of 
TABLE. Notice that bytes>adr is not 
part of the indexing algorithm. Instead, this 
mapping takes place only once, when the 
table is declared. 

: TABLE 

( #elements #bytes/element ~ ) 

CREATE 

BYTES>ADR DUP , 

ALLOT 
DOES> 

DUP @ 

( idx <pfa> #adr/element - ) 
ROT * ( <pfa> offset ~ ) 
+ ; 

50 1 TABLE TH-CHAR 

TABLE is not limited to producing ar- 
rays of cells, doubles, and bytes. To declare 
an array of ten-character strings, 
10 10 TABLE TH-IOCSTRING 

can be used. But the prefix parameters do 
not tell much of the story. Likewise, 
2 2 TABLE 2 ITEMS 

conveys that the table 2 ITEMS has two 
elements of two bytes each. But we don't 
have enough clues to be certain what these 
elements are. The array 2 items could 
store addresses, two-byte strings, or vari- 
able values. 

A different syntax can communicate 
more about the array, leading to self-docu- 
menting code: 

• Bytes, or byte-based units, should be ex- 
plicitly stated as the unit of measurement 
for each element. 

• When a number has no corresponding 
units, such as a dimension in an array, a 
place-holder such as by should help clar- 
ify its meaning. 

• An identifier such as E LEMENT also helps 
make the declaration clearer. 

With these enhancements, the preceding 
array can be declared as: 

2 BY 2 BYTE ELEMENT 
ARRAY XY 

Because the new syntax provides more 
clues about the contents of the array, arrays 
so defined are less subject to misuse. 
BY can also help declare n-dimensional 



matrices by counting the number of dimen- 
sions as they are specified. (Although I 
have not shown the definition of an n-di- 
mensional matrix declarator in Figure 3-2, 
it is not difficult to conceive one.) 

By defining the unit identifiers CELL 
and BYTE in a special fashion, their use can 
be required when declaring arrays. One of 
these unit identifiers must precede ELE- 
MENT. 

ELEMENT must appear after a unit 
identifier and before ARRAY. This syntax 
is enforced through UN I T S -CK. The pres- 
ence of the dimension identifier BY is en- 
forced through #BYS-CK. 

Array Declaration Style 

Although an enforced array syntax is a 
major step towards clearer array declara- 
tions, there are other ways to promote clar- 
ity. A stylistically correct declaration also 
clearly describes the array. For example, 
there are five valid index values for the 
following array of doubles (six, actually, 
because zero can also be used as an index 
value in this implementation): 
5 BY 1 DOUBLE ELEMENT 
ARRAY 5D0UBLES 

The preferred style is to declare the ele- 
ment as a single unit long (with a couple of 
exceptions). When it is not a single unit, the 
intent is obscured. What kind of elements 
comprise the following array? 
5 BY 2 CELL ELEMENT 
ARRAY 5x2ARRAY 

Because the length of each element is two 
cells, the type of the data elements is un- 
clear. Furthermore, the second cell of each 
pair of cells cannot be addressed using any 
of the possible index values. Extra address 
arithmetic is required to address the second 
cell in each pair. Nevertheless, this is an 
appropriate declaration for an array of two- 
cell elements to be manipulated with 2 @ 
and 2 ! (eliminating the need for extra 
address arithmetic). This is another excep- 
tion to the guideline that an element should 
always be a single unit long. 

Although BYTE can be used to declare 
an array of doubles, it is a poor practice: 

5 BY 4 BYTE ELEMENT 
ARRAY 5 ITEMS 

BYTE is the preferred units identifier 
only when declaring an array of byte val- 
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Figure 3-1. Basic suite. 

8 CONSTANT BITS/ADR 
2 CONSTANT BYTES/CELL 
( Correct values shown for my system; 
your system may require other values) 

: BYTES>ADR ( #bytes — #addresses-spanned ) 
DUP 8 * BITS/ADR MOD >R 
8 BITS/ADR */ ( #addresses — ) 

R> IF 1+ THEN ; 

BYTES /CELL BYTES>ADR CONSTANT ADR/, 
1 ByTES>ADR CONSTANT ADR/C, 



Figure 3-2. Extensions for array suppwrt 

VARIABLE BASIC-LEN ADR/, ALLOT 
BASIC-LEN 2! 

: BYTE-SCALER ( <name> — ) 

CREATE ( bytes/unit — ) 

f 

DOES> ( #elements <pfa> — ) 

6 * DUP ( #bytes #bytes — ) 

BASIC-I£N ! ; 

BYTES/CELL BYTE-SCALER CELL 
1 BYTE-SCALER BYTE 

: ELEMENT ( #bytes — #addresses-spanned ) 
DUP BASIC-LEN ADR/, + ! 
BYTES>ADR ; 

: UNIT-CK { — ) 
BASIC-LEN 2@ - 
IF CR 

." Missing ELEMENT or unit identifier" 
ABORT 
THEN ; 



: UNIT-CLEAR ( — ) 

BASIC-LEN ! 
-255 BASIC-LEN 
ADR/, + ! 

(This unit-checking scheme employs the raw number of bytes as calcu- 
lated by the byte-scalers, such as CELL and BYTE. This value is left on 
the stack for processing by EUSMENT. Since both the byte-sealer and 
EI£MENT write the same value into one of the cells of BASIC-LEN, 
UNIT-CK only has to confirm that each of those cells is equal.) 

VARIABI£ #BYS #BYS ! 
: #BYS-CK ( — ) 

#BYS @ #BYS ! ( #bys — ) 
1- IF UNIT-CLEAR CR 

." Missing or extra 'BY'" 
ABORT 
THEN ; 

: BY 

1 #BYS +! ; 

: BOUNDS-CK ( th-element *max — ) 
@ > IF 

CR ." Maximum index exceeded" 

SWAP .S ABORT 
THEN ; 

: ARRAY ( #elements scaled-element-length — ) 
#BYS-CK UNITS-CK UNITS-CLEAR 
CREATE 

OVER { max — ) , 

DUP , SWAP 1+ * ALLOT ( 0/1-based indexing) 
DOES> ( idx <pfa> - idxth-element ) 
2DUP BOUNDS-CK 
ADR/, + { idx *size — ) 

DUP ADR/, + ( idx *size *lst-element — ) 
SWAP @ ( idx 1st -element element-length — ) 
ROT * + ; 



ues, or an array of strings, as in the follow- 
ing declarations: 

75 BY 1 BYTE ELEMENT 
ARRAY TH-CVALUE 

5 BY 15 BYTE ELEMENT 
ARRAY TH-15CSTRING 

Even though their memory requirements 
are the same, one has 75 valid index values 
and the other has only 5 valid index values 
(not counting zero as a possible index 
value). The value preceding byte helps 
clarify which is an array of byte values, and 
which is an array of strings. 

Conclusion 

Use of host abstraction eases the porting 
problems of Forth with respect to data 



structures. To best realize this abstraction, 
we need to habitually engage the new rou- 
tines, and we need to follow the syntactical 
rules and style guidelines presented for the 
declaration of arrays. Besides increased 
program portability, these practices pro- 
vide increased program readability. 

As a parting observation, consider how 
we specify memory allocations with AL- 
LOT. The units identifiers that have been 
suggested can bring similar benefits in this 
context. By not specifying an exact number 
of addresses, but instead specifying a 
number of "abstract" units, host-tailored 
memory allocations can be made appropri- 
ately. In this way, 4 CELL allot (or 
ALLOTMENT) would automatically allo- 
cate 128 bytes on a host computer with 32- 
bit memory words. 
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THE BEST OF 

GENIE 

GARY SMITH - UTTLE ROCK, ARKANSAS 



I am going to take a completely dif- 
ferent tact in this issue, and discuss what 
can only be described as an experiment that 
may yet end in failure. Our hope is that it 
will succeed beyond our dreams and result 
in eventual connection with any Forth re- 
source in the world. The dream is a virtual 
Forth network called ForthNet. 

I had the idea before we got set up on 
GEnie, and with the help of Jack Woehr 
(JAX), sysop on the WELL and regular on 
GEnie, we began our noble experiment to 
establish a virtual ForthNet by connecting 
GEnie and the WELL. We have since 
added thex CoastForth Boards, and hope to 
integrate much more of the Forth commu- 
nity in the near future. 

The biggest problem now is connectiv- 
ity. ForthNet exists only because I am will- 
ing to serve as a mule, porting messages 
from each point in the loop. This, obvi- 
ously, is not the long-term way to succeed. 
We must begin letting the computers do the 
porting for us. GEnie does not currently 
provide any gateways, so we are immedi- 
ately confronted with a stumbling block. 
The solution may rest in the establishment 
of another link in Denver of the x Coast 
Forth Boards, which will bring them and 
the WELL into a tighter loop to which I can 
link via PCPursuit, limiting the problem of 
porting to one junction. 

The following will give you a look at the 
problems and promises. I invite yoiu" par- 
ticipation and suggestions. 

Topic 1 

Fri Aug 19, 1988 GARY-S [Gary] 
Sub: From the WELL: 

Messages posted here are ported from a 



public-domain area of the comp.lang.forth 
on the WELL. Replies in this topic will be 
ported back to the WELL and the xCFBs. 7 
message(s) total 

Category 14, Topic 1, Message 1 
Topic 39: ForthNet Gateway : If you enter 
a message here it is public domain. 
Read #1 # 7: Ridu dum kiam vi povas, 
simiulo-knabo! (bandy) 
Mon, Aug 15, '88 

Okay, I have a question for folks at 
large: 

I have two applications written in Mac- 
Forth+, which tends to fall apart and make 
giant-sized applications. Let's not even 
mention that it blows up regularly on the 
Mac n and that the Sibley Editor has two 
serious bugs in it. 

So, am I stuck with this or is there a 
(semi-?) compatible language system that I 
can run on the Mac+/SEAI? I have about 
160K of source code to work with, and I 
wouldn't mind putting in a man- week 
making conversions to how it handled 
windows and events. 

Read #1 # 8: Jack J. Woehr (jax) 
Thu, Aug 18, '88 

The mailman cometh; gars ( GARY-S) 
is on his way to waft your question to the all- 
knowing MacForth gurus of GEnie! :-) In 
the meantime, if the dam editor doesn't 
work, why don't you fix it? Why don't we 
fix it here, all of us? 

Read #1 #9: Ridu dum kiam vi povas, 
simiulo-knabo! (bandy) 
Fri, Aug 19, '88 

If (a) I could figure out from the silly 



docs how to rebuild the system, and (b) I 
could find the part of the code for the 
editor that is passing NIL instead of "" for 
the names of the scroll-bars.... 

Sorry for the delay in picking up the 
mail. I have been very busy. I did post 
notice on the x Coast Forth Boards, and a 
Category will be set aside on GEnie. 
Bandy, you have the honor of breaking the 
ice on what could develop into a virtual 
Network — and that's exactly what Jax 
and I are hoping for. Look for a response 
(hopefully quicker than the pick-up) in 
this same area, with messages for WELL 
digestion from GEnie and the xCFBs. 7: 
Gary 

Category 14, Topic 1, Message 2 

Sat Aug 20, 1988 S.W.SQUIRES [scott] 

Response to MacForth+ questions: 

What version is he running? Can he be 
more specific about the problems? Since I 
haven't experienced 'two serious bugs' in 
the editor I'm not sure what he's referring 
to. Some older versions had minor prob- 
lems, but to my knowledge those have 
been solved. The source code is included, 
so he can review and change it directly, if 
needed. 

MacForth has been used to create ap- 
plications running on 128K Macs, so the 
size issue can certainly be dealt with. The 
vocabularies and extensions can be 
trimmed down (recommended in the 
manual). Memory space that is allocated 
should use heap space instead of object 
space, when possible. 

If he really has a problem, I suggest he 
contact Creative Solutions and get his 
questions answered directly. The only 
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USING A 

STRING STACK 

RON BRAITHWAITE - LOS ANGELES, CALIFORNIA 



Screens continued from preceding issue. 



( D>$ d ~ $ ) 

( Converts the double precision integer d to the string $ on ) 
( the string stack. ) 



string stack. 

D>$ ( d — $ ) 

DUP >R <# #S R> SIGN #> $CNT@ 



$>D $ — d n 

Converts the string $ on the string stack to the double 
precision integer d, using the current radix, and the 
conversion count n. If all characters in the string $ are 
converted, the flag is -1 . If the string $ is partially 
converted, n is the number of characters that converted. 
If n is 0, the value of d is undefined. 

The position of the decimal point is placed in the variable 
DPL. If no decimal point was present, DPL will contain the 
value -1 . If either hardware or software floating point 
extensions have been loaded, the action of $>D and the value 
in DPL may vary from this description. 



$>D 


( $ — d n ) 






BASE @ >R -1 DPL ! $P@ COUNT TUCK 


[ Set up scan 


?D0 


OVER ce DUP ASCII < SWAP ASCII 9 > OR 


( > c > F? 


IF 


LEAVE 


[ Get out 


THEN 


1+ SWAP 1+ SWAP 


; Inc cntSaddr 


LOOP 


NIP $CNT OVER = 


( Pure number? 


IF 


DROP -1 


( Don't adjust 


ELSE 


DUP $LEFT 


( Extract num 


THEN 


$P@ NUMBER? 


( Convert 


IF 


ROT 


( Offset 


ELSE 


ROT DROP 


( Didn't go 


THEN 


$DROP R> BASE ! ; 


( Restore base 



( $INDEX 1$ 0$ — o 

( Returns the offset into the second string, 1$, on the string 
( stack of the first position matching the pattern of the first 
( string 0$. If 0$ is not a subset of 1$, -1 is returned. 
( 

( $INDEX is equivalent to the LMI word STRNDX 



C Continued from previous page.) 

other real Forth for the Mac is MACH2 
from Palo Alto Shipping. It has the advan- 
tage of being closer to Forth-83 and some- 
what faster. The disadvantage is not hav- 
ing much in the way of true extensions 
(i.e., doing it the same as all the Mac 
languages — from the ground up). This 
may have changed, since I haven't seen a 
recent version for a year or so. Both Forths 
are good, it just depends on the particular 
user's needs. He should make sure the 
problem really is with the system, and not 
with his program or process of using it. 
—Scott 

Category 14, Topic 1, Message 3 
Tue Aug 23, 1988 GARY-S [Gary] 
> PORTED FROM THE WELL ==> 
Topic 39: ForthNet Gateway : If you enter 
a message here it is pubUc domain. 
Read #1 # 14: Ridu dum kiam vi povas, 
simiulo-knabo!(bandy) 
Men, Aug 22, '88 

The two bugs in the editor (they refuse 
to belive it) are that when it is making the 
controls for the horizontal and vertical 
scroll bars, it passes NIL as a StringPtr (for 
the control name) rather than " " (a pointer 
to an empty string). Macs no longer have a 
OatO. 

My current beef is that both my appli- 
cations blow up on the Mac II. Setting 
TMON to Strict discipline reveals that, by 
the time it calls the SlotManager from the 
GINIT routine, the heap is quite trashed. 
This doesn't happen with the smaller 
TURNKEY applications, such as the En- 
gine Demo, but it's happening in my pro- 
gram before any of my code gets executed! 

So does MACH2 basically have no 
support for windows (a la Lightspeed-eve- 
rything), menus, etc.? There aren't any 
weird little differences with anything fun- 
damental like ROLL? 

Read #1 # 15: Ridu dum kiam vi povas, 
simiulo-knabo! (bandy) 
Mon, Aug 22, '88 

I did the obvious thing and looked up 
Palo Alto Shipping in the Palo Alto phone 
book, and no number... Number please? 

Category 14, Topic 1, Message 4 
Wed Aug 24, 1988 D.RUFFER [Dennis] 
Well, the Palo Alto Shipping company 
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$INDEX ( 1$ 0$ — o ) 

1$ COUNT TUCK 
DROP $CNT 1 $CNT I - > 
-1 I£AVE 

DUP Ce $Pe 1+ C@ " 
DUP -1 $Pe COUNT OVER + SWAP 
DROP DUP eg I C@ <> 
LEAVE 
-1 



?D0 
IF 

THEN 
IF 
?D0 
IF 

THEN 1+ 
LOOP NIP 
IF 1$ 
THEN 
THEN 1+ 
LOOP NIP 



DUP 1- LEAVE 



$2DRCS> 



( Set up loop 
( Run out? 
( Not subset 
( First char-? 
( Flag, indices 
( Not equal? 
( Get out 
( Inc ptr, flag 
( Drop addr 
( Offset 
( 

( Try next char 
( Leave offset 



( $VERIFY 1$ 0$ — o 

( Returns the offset into the second string 1$ on the string 

( stack of the first character in the first string OS which is 

( not found in the second string <i . e . , the length of the 

( initial substring of 0$ which consists entirely of characters 

( in 1$>. 

( 

( SVERIFY is equivalent to the LMI word STRSPN 



SVERIFY ( 1$ 0$ — o ) 

$CNT DUP 
1 $CNT 

1$ 1+ I + C@ $P@ 1+ J + C@ 



?D0 
?D0 
IF 
LOOP 
IF 

LOOP 



DROP -1 
0- 

DROP I 
$2DRCS> 



LEAVE 



LEAVE 



THEN 
THEN 



( 0$ loop 
( 1$ loop 
( Equal? 
( Found it 
( Get out? 
( <> at I pos 
( 



( SPARSE 1$ 0$ — 3$ 2S 

( Parses the string 1$ for the string 0$, returning the parsed 
( string 2$, without the string 0$, and the remaining string 
( 3$, without the string 0$. If no instances of the string 0$ 
( are found, string 2$ is the null string auid string 3$ is 0$. 



: SPARSE ( 1$ OS — 3$ 2$ ) 

$2DUP SINDEX DUP -1 <> 
IF 1-0 SCNT SDROP SDUP OVER + 

SCNT SWAP - SRICaiT SSWAP SLEFT 
ELSE DROP SDROP SNULL 
THEN ; 



( Find pos 
( Offset to 3S 
( Make 3$ & 2$ 
( Not found 



( SSOUNDEX OS — IS ) 

( Computes the soundex code string IS of the string 0$ on the ) 
( string stack. The soundex code is in the range => s => 9999) 



: OSNDX ( cl — c2 ) 

64 - DUP 0< OVER 27 < OR 
IF " 01230120022455012623010202" 
( ABCDEFGHCJKI11N0PQRSTUVWXYZ) 
ELSE DROP ASCII 
THEN ; 



( In range? ) 
+ C@ { Get code ) 

( Corresponding) 
( Not char ) 



is accessible right here on GEnie. Type 
MACH2 to get to their RoundTable. And 
for those who are not here yet [on GEnie], 
their address is: 

Palo Alto Shipping Company 

P.O. Box 7430 

Menlo Park. CA 94026 

1(800)44FORTH 

GEnie address: PASC 

Category 14, Topic 1, Message 5 
Men Sep 05, 1988 D.MILEY 

Dennis (D.RUFFER), thanks for post- 
ing the information about the MACH2 RT. 
I'd like to add that the 1(800)44FORTH 
number is for orders only; our product 
support number is (415)363-1399. Also, 
our GEnie address is D.MILEY (not 
PASC). 

My first programming language on the 
Macintosh was MacForth (back in the 
128K Mac days). However, about two 
years ago I began using MACH2 almost 
exclusively, and in November of 1987 I 
started working for Palo Alto Shipping (the 
parent company of MACH2). Given my 
experience, I don't mind saying that CSI's 
MacForth is a fine Forth-language-based 
development system (but, of course, I pre- 
fer MACH2). 

My opinion is that there would be a 
significant amount of woric converting be- 
tween MacForth and MACH2. The Forth- 
language-based differences aren't too se- 
vere, MACH2 conforms almost com- 
pletely to the Forth-83 Standard while 
MacForth is somewhere between Forth-79 
and Forth-83. The big differences come in 
the interface to the Macintosh toolbox. 
MacForth supplies its own high-level in- 
terface to much of the Mac toolbox, while 
MACH2 uses a CALL "hook" to reference 
each toolbox/trap directly (almost — we 
still use "glue" to size each parameter and 
move values to/from the system stack or 
processor registers). As an example, to 
draw an oval in the current grafPort, you 
rely on the Mac ROM routine FrameOval. 
The Pascal definition of FrameOval (as 
found in Inside Macintosh) is: 
PROCEDURE FrameOval (r: 
Rect) ; 

From MacForth you might draw an 
oval by saying: 

50 100 100 200 FRAME OVAL 

where 50, 100, 100, and 200 specify the the 
pixel coordinates of the top-left and bot- 
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tom-right comers of the bounding rec- 
tangle. 

To draw an oval in MACH2 you might 
say: 

MyRect CALL FrameOval 

where MyRect must return a pointer to a 
rectangle record (eight bytes). Note that the 
MACH2 example closely parallels the 
Pascal interface. Of course, in the MACH2 
case (as in Pascal), you have to initialize the 
rectangle record before you use it. 
This could be done as follows: 

VARIABLE MyRect 4 VALLOT 

(declare an 8-byte, global- variable record) 

MyRect 50 100 100 200 CALL 
SetRect 

(initialize the rectangle record) 

VALLOT is a "cousin" to ALLOT. VALLOT 
reserves bytes in the Macintosh global- 
variable space {not in the object-code space 
as ALLOT does). 

SetRect is another Macintosh ROM 
routine. Its Pascal definition is: 
PROCEDURE SetRect 
(VAR r: Rect; 
left, top, right, bottom: 
INTEGER) ; 

You should note the following from the 
above example: When interfacing to the 
Macintosh ROM, MacForth tries to reduce 
the amount of "work" required of the pro- 
grammer, while MACH2 tries to conform 
directly to Inside Macintosh (Apple's tech- 
nical reference to the Macintosh computer 
family). I personally find MACH2's CALL 
interface to be much more powerful and 
flexible, but others tend to appreciate 
MacForth's simplified interface to the 
Mac's toolbox. However, in some situ- 
ations MacForth's toolbox approach can 
cause significant difficulty (complexity) . If 
MacForth doesn't supply a high-level 
equivalent to a particular ROM routine, 
you may face some pretty ugly stack ma- 
nipulations in order to interface directly to 
the ROM (or you may have to resort to as- 
sembly language). This shouldn't happen 
in MACH2 because nearly all of the ROM 
routines are supported by the same CALL 
interface (nearly 900 toolbox routines are 
supported by CALL). 

Both MacForth and MACH2 offer a 
pre-written event loop. That means events 
are handled more or less automatically by 



: $SOUNDEX 

$UPPER 
IF C@ 

ELSE DROP ASCII 
THEN HERE 1+ C! 

IF $pe 1+ ce 

$P@ COUNT 



( 0$ — 1$ ) 
1 HERE C! $Pe COUNT 



0> 





$CNT 1 > 

OSNDX 
OVER + SWAP 



1+ 



?D0 I C@ OSNDX TUCK = 

OVER ASCII = OR 0= 
IF DUP HERE COUNT + C! HERE DUP C@ 1+ SWAP 
LOOP DROP 

THEN $DROP " 000" $6 HEBE $@ $APPEND 4 $LEFT 



( Not null? 
( Get char 
( 

( Store 1st chr 
( Last char 
( Rest of $ 
( Last =? 
( Not =10 
C! THEN 
( Run thru 0$ 
; ( 4 char code 



$MATCH 1$ 0$ — flag 

Returns TRUE if the string 1$ on the string stack matches the 
pattern of 0$. The pattern of 0$ may consist of the pattern 
codes of C, G, N, P, A, L, U, E, \ or ~. If the pattern code 
is a 'or ~, the following character is taken as a literal 
value. The pattern is the union of the pattern codes in 0$. 

The significance of the pattern codes are: 

C 33 Control characters, including DEL 

G 128 Graphic characters above DEL 

N 10 Numeric characters 

P 33 Punctuation characters, including SP 

A 52 Alphabetic characters 

L 26 Lower-case alphabetic characters 

U 26 Upper-case alphabetic characters 

E Everything non-graphic 

' The following character is present 

The following character is not present 



Inplementation note: This is a very long which would 
normally be divided into much smaller words. In this case, 
however, further deconposition would make it more clumsy. 



( 1$ 0$ ~ flag ) 

OVER + SWAP 



: $MATCH 

-1 $P@ COUNT 
?D0 I C@ 
CASE ASCII C 

OF -1 1$ COUNT OVER + SWAP 
?D0 I ce DUP 32 < SWAP 127 = OR NOT 
IF DROP LEAVE THEN 
LOOP AND DUP 0= 

IF LEAVE THEN 
ENDOF ASCII G 

OF -1 1$ COUNT OVER + SWAP 
?D0 I C@ 128 < 

IF DROP LEAVE THEN 
LOOP AND DUP 0- 

IF LEAVE THEN 
ENDOF ASCII N 

CF -1 1$ COUNT OVER + SWAP 



Flag, do 0$ 
Get pattern 
Control? 



Graphic? 



Numeric? 
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?D0 I C@ DUP ASCII < SWAP ASCII 


9 > OR 




IF DROP LEAVE 


THEN 




LOOP AND DUP 0= 




( ) 


IF LEAVE 


THEN 


( ) 


ENDOF ASCII P 




( Punctuation? ) 


OF -1 1$ COUNT OVER + SWAP 






?D0 I C@ DUP 31 > OVER ASCII 


< AND 




SWAP DUP ASCII 9 > OVER ASCII 


A < AND 




SWAP DUP ASCII Z > OVER ASCII 


a < AND 




SWAP DUP ASCII z > SWAP 127 < 


AND OR OR OR ( ) 


IF DROP LEAVE 


THEN 


( ) 


LOOP AND DUP 0= 




( ) 


IF LEAVE 


THEN 


( ) 


ENDOF ASCII A 




( Alphabetic? ) 


OF -1 1$ COUNT OVER + SWAP 




( ) 


?D0 I ce DUP ASCII @ > OVER ASCII 


[ < AND 


( ) 


SWAP DUP ASCII ' > SWAP ASCII 


{ < AND 


OR NOT ( ) 


IF DROP LEAVE 


THEN 


( ) 


LOOP AND DUP 0- 




( ) 


IF LEAVE 


THEN 


( ) 


ENDOF ASCII L 




( Lower case? ) 


OF -1 1$ COUNT OVER + SWAP 




( ) 


?D0 I C@ DUP ASCII a < SWAP ASCII 


z > OR 


( ) 


IF DROP LEAVE 


THEN 


( ) 


LOOP AND DUP 0= 




( ) 


IF LEAVE 


THEN 


( ) 


ENDOF ASCII U 




( Upper case? ) 


OF -1 1$ COUNT OVER + SWAP 




( ) 


?D0 I C@ DUP ASCII A < SWAP ASCII 


Z > OR 


( ) 


IF DROP LEAVE 


THEN 


( ) 


LOOP AND DUP 0= 




( ) 


IF LEAVE 


THEN 


( ) 


ENDOF ASCII E 




( Not grapiiic? ) 


CS" -1 1$ COUNT OVER + SWAP 




( ) 


?D0 I C@ 127 > 




( ) 


IF DROP LEAVE 


THEN 


( ) 


LOOP AND DUP 0= 






IF LEAVE 


THEN 


! ] 


ENDOF ASCII ' 




( Literal? ) 


OF 1$ COUNT OVER + SWAP 






?D0 I C8 J 1+ C@ = 






IF DROP -1 LEAVE 


THEN 




LOOP AND DUP 0- 






IF LEAVE 


THEN 




ENDOF ASCII ~ 




( Literal NOT? ) 


OF -1 1$ COUNT OVER + SWAP 






?Do I ce J 1+ C@ = 






IF DROP LEAVE 


THEN 




LOOP AND DUP 0= 






IF LEAVE 


THEN 




ENDOF 






ENDCASE 






LOOP $2DR0P ; 




( leave flag ) 


( >$YYYYMMDD y md - $ 






( Converts the standard date format integers y md to a date ) 


( string in the format yyyymmdd. 







both products. Both products do multi- 
tasking, both allow interactive creation of 
windows, controls, menus, etc. Both pro- 
vide assemblers, although the MACH2 
assembler isn't RPN (MACH2 uses a 
"standard" Motorola-syntax assembler). 
MacForth suppUes source code to their 
editor, assembler, and extensions 
(MACH2 does not, a disadvantage to 
some). Byte-for-byte, MacForth will usu- 
ally produce more compact code (smaller 
size); however, MACH2 will run about 
two to three times as fast as MacForth (this 
difference in speed usually isn't meaning- 
ful unless you're doing heavy memory 
access, looping, or number crunching). 
MACH2 is subroutine threaded, MacForth 
is token threaded. 

Well, that's my not-too-brief summary. 
MACH2 and MacForth do have significant 
differences, and I think both are good prod- 
ucts. I was a bit surprised to see such a 
critical attack on MacForth. Frankly (from 
my experience), I don't think they deserve 
such treatment 
— Waymen 

Category 14, Topic 1, Message 6 
Mon Sep 05, 1988 D.RUFFER [Dennis] 
Thanks, Waymen, for giving us the 
correct scoop on contacting Palo Alto, and 
for the excellent (although slanted) opinion 
of both Forths for the Mac. Glad to see 
someone from there is monitoring over 
here. 

Now, maybe Ward will give us the 
"other" side of the story? <grin> DaR 

Category 14, Topic 1, Message 7 
Sat Sep 10, 1988 GARY-S [Gary] 
> PORTED FROM THE WELL ==> 

(Comment on new xCFB in Denver by Jax) 
Topic 39: ForthNet Gateway : If you enter 
a message here it is public domain. 
Read#l #23: Jack J. Woehr(jax)Thu,Sep 
8, '88 

Looks like the name of the new board 
will be the Realtime Control & Forth 
Board. It will be PCPursuitable, free, dedi- 
cated to discussions and files about embed- 
ded systems and Forth. 
—Your Sysop, G. Who 

Topic 2 

Fri Aug 19, 1988 GARY-S [Gary] 
Sub: From the xCFBs/ForthNet 
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This topic will be devoted to subjects 
raised and replies to ForthNet questions 
generated on the x Coast Forth Boards. 

Category 14, Topic 2, Message 1 
Fri Aug 19, 1988 GARY-S [Gary] 

Date: 08-13-88 
To: Gary Smith 
From: Sysop 
Subj: ForthNet 

You must have a lot of free time on 
your hands! <grin> 

All the Forth Conferences on the 
NCFB, ECFB, and the BCFB contain the 
same messages. This should save some 
calling between boards to get everything. 
As a matter of fact, if your messages were 
posted in one of the eight networked con- 
ferences, you wouldn't have to make an- 
other long distance call to post them on 
the other boards. 

I'm also assuming that GEnie isn't 
going to claim any legal rights to any of 
the transplanted messages; otherwise, I'll 
have to insist that permission is received 
from the message's author. 

Date: 08-16-88 
To: Gary Smith 
From: Sysop 
Subj: ForthNet 

Gary, have you used the ProDoor 
ARCM command? In just a couple of 
minutes, you can capture all the new mes- 
sages into an ARCed file for your off-line 
use. An added benefit of this strategy is 
that the messages won't have any added 
garbage characters except those inserted 
by the original author when entering the 
message. 

Don, we have made it clear from the 
beginning that GEnie Forth RT is an open 
public-domain forum. The messages in 
the WELL are not normally such. So I set 
up a topic on the WELL, devoted to this 
virtual ForthNet, that is clearly identified 
as being public domain. The first such 
messages were posted on GEnie Cate- 
gory 14 (ForthNet) tonight. Your mes- 
sages will also be posted on GEnie to- 
night. Let me know how to upload ASCII 
text to NCFB and I ... will close the loop 
as long as I can — or can someone pick up 
Cat. 14 for posting here? 
— Gary 

Category 14, Topic 2, Message 2 



: >SYYYYMMDD ( y md — $ ) 

SWAP <##### #> HERE 1+ SWAP CMOVE 

256 /MOD <# # # #> HERE 5 + SWAP CMOVE 

<# # # #> HERE 7 + SWAP CMOVE 

HERE 8 OVER C! $@ ; 

( $YYYYMMDD> $ — y md 

( Converts the date string in the format yyyynimdd to the 
( standard date format integers y md. 



$YYYYMMDD> 


( $ - 


y md ) 










$DUP 


4 $I£FT 


$P@ NUMBER? NIP 0= 


( 


yyyy? 


) 


IF 


DROP 







( 


year 


) 


THEN 


$DROP 


$DUP 4 


2 $MID $P@ NUMBER? NIP 0= 


( 


mm? 


) 


IF 


DROP 







( 


itonth 


) 


THEN 


256 * 


$DRCS' 2 


$RIGHT $P@ NUMBER? NIP 0= 


( 


dd? 


) 


IF 


DROP 







( 


day 


) 


THEN 


$DR0P 


+ ; 










>SMM/DD/YY 


y md - 


- $ 






) 



( Converts the standard date format integers y md to a date 
( string in the format mm/dd/yy. 

: >$MM/DD/YY ( y md — $ ) 

256 /MOD <# ASCII / HOLD # # #> HERE 1+ SWAP CMOVE 
<# ASCII / HOLD # # #> HEBE 4 + SWAP CMOVE 
1900 - <# # # #> HERE 7 + SWAP CMOVE 

HERE 8 OVER C! $0 ; 



( $MM/DD/YY> $ — y rod 

( Converts the date string in the format mm/dd/yy to the 
( standard date integers y md. 



y md ) 
$P@ NUMBER? NIP 



: $MM/DD/YY> ( S ~ 

$DUP 2 $RIGHT 
IF -1900 
THEN 1900 + 

$DROP $DUP 2 $LEFT $P@ NUMBER? NIP 0= 
IF 
THEN 256 * 

$DR0P 3 2 $MID 
IF 

THEN $DR0P + ; 



( yy? ) 

( year ) 
( This century ) 



$P@ NUMBER? NIP 0= 



mm? 

month 
Shift left 
dd? 
day 



) 
) 

8b) 
) 
) 
) 
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( >$JULIAN y md — $ 

( Converts the standard date format integers y md to the julian 
( day of the string $. The julian day is the day offset from 
( the start of the current year. The julian date is the number 
( of days since the last conjunction of the 28 year solar cycle 
( and 19 year lunar cycle, calculated to be January 1, 4713 BC. 
( On December 31, 1986, the julian date was 2,446,796. 



>$JULIAN 



( y md — $ ) 





SWAP 


4 MOD 0= 




[ Leap year? 


IF 


1. 




ELSE 0. 




[ Compensate? 


THEN 


ROT 


256 


/MOD >R S>D 


D+ R> 


[ day month 


CASE 


1 


OF 





ENDOF 




[ January 31 




2 


OF 


31 


ENDOF 




( February 28 




3 


OF 


59 


ENDCF 




( March 31 




4 


OF 


90 


ENDOF 




( April 30 




5 


OF 


120 


ENDOF 




( May 31 




6 


OF 


151 


ENDOF 




( June 30 




7 


OF 


181 


ENDOF 




( July 31 




8 


OF 


212 


ENDOF 




( August 31 




9 


OF 


243 


ENDCF 




( September 30 




10 


OF 


273 


ENDOF 




( October 31 




11 


OF 


304 


ENDOF 




( November 30 




12 


OF 


334 


ENDOF ABORT" 


Illegal month" 


( December 31 


ENDCASE S>D 


D+ 


D>$ ; 




( y md>julian 



( $JULIAN> $ — y md 

( Converts the julian day of the string $ to the standard date 
( format integers y md. The julian day is the day offset from 
( the start of the current year. The julian date is the number 
( of days since the last conjunction of the 28 year solar cycle 
( and 19 year lunar cycle, calculated to be January 1, 4713 BC. 
( On December 31, 1986, the julian date was 2,446,796. 



$JULIAN> ( $ — 


y md ) 








@DATE DROP DUP 


4 MOD 


0= 


( Leap year? 


IF 


1 ELSE 







( Conpensate? 


THEN 


>R $>D 2DR0P 


DUP 32 


< 


( January? 


IF 


R> DROP 256 + 




EXIT 




THEN 


DUP 60 Re + < 






( February? 


IF 


R> DROP 31 - 


512 + 


EXIT 




THEN 


R> - DUP 91 < 






( March? 


IF 


59 - 768 + 




EXIT 




THEN 


DUP 121 < 






( April? 


IF 


90 - 1024 + 




EXIT 




THEN 


DUP 152 < 






( May? 


IF 


120 - 1280 + 




EXIT 




THEN 


DUP 182 < 






( June? 


IF 


151 - 1536 + 




EXIT 




THEN 


DUP 213 < 






( July? 


IF 


181 - 1792 + 




EXIT 




THEN 


DUP 244 < 






( August? 



Sat Aug 20, 1988 S.W.SQUIRES [scott] 
Gary, Some of the previous messages 
make it a little difficult to figure out who is 
sending the message, especially the one 
from sysop. I assume that is Don Madison 
frrom the North Coast Forth Board? 
—Scott 

Category 14, Topic 2, Message 3 
Sat Aug 20, 1988 GARY-S [Gary] 

Yes, Scott — it was Eton. Thank you for 
bringing the ambiguity to my attention. I 
see this may take some editing for some of 
the messages to be more coherent 
— Gary 

Category 14, Topic 2, Message 4 
Sat Sep 10, 1988 GARY-S [Gary] 
> PORTED FROM xCFBs ==> 

Date: 09-07-88 (23:50) 
To: Gary Smith 
From: Lee Brotzman 
Subj: ForthNet 

Gary, as far as BITNET and HGI-L 
goes, if you connect to Usenet's 
comp.lang.forth, you are automagically 
connected to BITNET. We have a fully 
operational, two-way gateway between the 
groups. All the mail they send, we receive; 
and vice versa. 

This sounds like a wonderful idea to 
me. 

Also on the FIGI-L front: In July, I 
changed the format from sending compiled 
periodic digests of the mail traffic, to send- 
ing each mail message immediately out to 
the group. This has been working quite 
well. However, some of my subscribers 
actually preferred the digests. So, in the 
interest of fairness, I have started a "sister" 
list to FIGI-L that consists of digests of all 
the FIGI-L mail traffic. I now distribute 
this periodically to about 14 people that 
want it. 

I hope to get a chance to upload archives 
of the HGI-L digests to both the ECFB and 
GEnie sometime. I just have to get down to 
Goddard some evening in order to use my 
AT there to do the archiving/uploading. 
My little Apple here at home just isn't up to 
the task. 

Date: 09-08-88 
To: RJ Brown 
From: Mahlon Kelly 
Subj: Unix Forth 
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About a month ago, I tried to help a firm 
that tried to bring up their own Forth, based 
on polyForth. I said, use an existing com- 
mercial system. Many thousands of dollars 
later they agreed. The work done by Dun- 
can, Callahan, or others has to be paid for. 
But it's worth it. 

Date: 09-09-88 
To: Gary Smith 
From: Jerry Shifrin 
Subj: ForthNet 

Gary, I pretty much agree with Don on 
this. I think it's best to just transfer every- 
thing appearing in this conference, the 
general Forth discussion area. I don'treally 
see a whole lot of virtue in transferring most 
questions — there are enough Forth experts 
on each of the boards to ensure reasonable 
responses to the bulk of the queries. Obvi- 
ously, questions about arcane Forth imple- 
mentations or strange computers will bene- 
fit from wider distribution. 

I'd personally prefer to see this very 
wide area network used for such things as 
news items, novel Forth approaches, prod- 
uct descriptions and reviews, etc. 



IF 


212 


- 2048 


+ 


EXIT 


( 




THEN 


DUP 


274 < 






( 


September? 


IF 


243 


- 2304 


+ 


EXIT 


( 




THEN 


DUP 


305 < 






( 


October? 


IF 


273 


- 2560 


+ 


EXIT 


( 




THEN 


DUP 


335 < 






( 


November? 


IF 


304 


- 2816 


+ 


EXIT 


( 




THEN 


334 


- 3072 


+ 




( 


December 



( >$HH:MM:SS:DD hm ds — $ 

( Converts the time integers hm ds to a time string in the 
( 24 hour format hh:mm:ss:dd. 



>$HH:MM:SS:DD ( hm ds — $ ) 

DUP 255 AND <# # # ASCII 

256 / <# # # ASCII 
DUP 255 AND <# # # ASCII 

256 / <# # # #> 



HOLD #> $CNT@ ( Decisec) 
HOLD #> $CNT@ $APPEND 
HOLD #> $CNTe $APPEND 

$CNT@ $APPEND ; 



( $HH:MM:SS:DD> $ — hm ds 

( Converts the time string in the 24 hour format hh:mm:ss:dd to 
( the time integers hm ds. 



$HH:MM:SS:DD> ( $ — hm ds ) 
$DUP $>D 1+ $CNT SWAP 
$DUP $>D 1+ $CNT SWAP 
$DUP $>D 1+ $CNT SWAP 
$>D 2DR0P + ; 



$RiaiT DROP 256 
$RIGHT DROP + 
$RIC3IT DROP 256 



( Hours 
( Minutes 
( Seconds 
( Decisecs 



( >$H:MM12 hm ds — $ 

( Converts the time integers hm ds to a time string in the 
( 12 hour format h:mm am or h:mm pm. 



) 



>$H:MM12 ( hm ds — $ 

DROP DUP 255 AND 

<# # # ASCII : HOLD #> $CNT@ 
> 



IF 
IF 

THEN 
ELSE 
IF 

THEN 





256 
DUP 
12 - 
" pm" 
DUP 0= 
12 + 
" am" 



/ DUP 
12 > 



11 



( Minutes 
( 

( After noon? 
( 1pm or later? 
( 
( 

( Midnight? 

( 

( 



THEN $@ $SWAP $APPEND <# #S #> $CNT@ $APPEND 



( $H:MM12> $ — hm ds ] 

( Converts the time string in the 12 hour format h: mm am or ) 
( h:mm pm to the time integers hm ds. The ds value is 0. ) 



: $H:MM12> ( $ — hm ds ) 

$DUP 2 $RIGHT " pm" $@ $= 

IF -1 ELSE 

THEN $DUP $>D 1+ $CNT SWAP - $RIGHT DROP 

DUP 12 < ROT AND 
IF 12 + 

ELSE DUP 12 = 

IF 12 - THEN 
THEN 256 * $>D 2DR0P + ; 



( After noon? ) 

( ) 

( Hours ) 

( 1-llpm > 

( ) 

( Midnight? ) 

( ) 

( Minutes ds ) 
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Advertisers Index 

ACM - 25 

Advanced Energy - 21 

Bryte - 17 

Ciber Consultants - 21 

Concept 4 - 11 

Forth Interest Group - 40 

Harvard Softworks - 7 
Laboratory 

Microsystems - 18 
Miller Microcomputer 

Services - 9 
Next Generation 

Systems - 10 

SDS Electronic - 21 

Silicon Composers - 2 

Vesta Technology - 37 



(Screens continued from page 24.) 



Screen # 22 

( RTTY - Receive and Transnit Mards pac 11:55 09/12/86 

: ''SIO \ — flag... is there a received char at the port? 

LSR e PCS DAV AND ; 
: SKEY \ — char... if so, bring it to the stack 

DATAL e PCS ; 
: SEKIT \ char — ... output one character 

BEGIN LSR 8 PCS TBE AND UNTIL DATAL S PC! ; 



(Screens continued from page 17.) 



Scr 


il 4 




\ TIP ONE: IRA DEDUCTION 




1 


: INCOME-PHRASE 




2 


11 12 AT ." If your adjusted gross income is " 




3 


: ADJUSTED-GROSS? AMOUNT? RETURNl Y/N 




A 


IF REDO NO-DEDUCTION ELSE AMOUNT? RETURN2 Y/N 




5 


IF REDO PARTIAL-DEDUCTION ELSE NO-PLAN INCOME-PHRASE 


RETURNS 


6 


THEN THEN ; 




7 


: PLAN RETURN? ADJUSTED-GROSS? ; 




8 


: IRA-TEST PLAN? IF PLAN ELSE NO-PLAN ." ." THEN 


LOCKUP ; 


9 


: WAIT 400 MS ; 




10 


: END-APPL UNSTACK DARK BDOS ; 




11 


: RUN-APPL BOX MESSAGE WAIT 




12 


BEGIN IRA-TEST RERUN? 




13 


KEY ASCII = 




14 


UNTIL END-APPL ; 




15 







COMPLETE DEVELOPMENT SYSTEM 
FOR MACHINE CONTROL 
APPLICATIONS 




TINY188 is a low cost "PC somewhat compatible" 
engine for OEM controller applications. A selection 
of high level languages is available in ROM. 

DDS188 An optional development board with EPROM 
programmer, floppy disk controller and added memory, 
removes to lower target system cost. 

Prices start at $269 each/$99 at 1,000. 

Vesta Technology, Inc. 
(303) 422-8088 

RDrth Programmers Needed 
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FIG 

CHAPTERS 



The FIG Chapters listed below 
are currently registered as active 
with regular meetings. If your 
chapter listing is missing or incor- 
rect, please contact Kent Saf ford at 
the FIG office's Chapter Desk. 
This listing will be updated in each 
issue of FortA Dimensions. If you 
would like to begin a FIG Chapter 
in your area, write for a "Chapter 
Kit and AppUcation." Forth Inter- 
est Group, P.O. Box 8231, San 
Jose, California 95155 

U.S.A. 

• ALABAMA 
Huntsville Chapter 

Tom Konantz 
(205) 881-6483 

• ALASKA 

Kodialc Area Chapter 

Horace Simmons 
(907) 486-5049 

• ARIZONA 
Phoenix Chapter 
4th Thurs., 7:30 p.m. 
AZ State University 
Memorial Union, 2nd floor 
Dennis L. Wilson 

(602) 956-7578 

• ARKANSAS 

Central Arl(ansas Chapter 

Little Rock 

2nd Sat., 2 p.m. & 

4th Wed., 7 p.m. 

Jungkind Photo, 12th & Main 

Gary Smith (501) 227-7817 

• CALIFORNIA 

Los Angeles Chapter 
4th Sat., 10 a.m. 
Hawthorne Public Library 
12700 S. Grevillea Ave. 
Phillip Wasson 
(213) 649-1428 



North Bay Chapter 
2nd Sat., 10 a.m. Forth, AI 
12 Noon Tutorial, 1 p.m. Forth 
South Berkeley Public Library 
George Shaw (415) 276-5953 

Orange County Chapter 
4th Wed., 7 p.m. 
FuUerton Savings 
Huntington Beach 
Noshir Jesung (714) 842-3032 

San Diego Chapter 
Thursdays, 12 Noon 
Guy Kelly (619)454-1307 

Sacramento Chapter 
4th Wed., 7 p.m. 
1708-59th St., Room A 
Tom Ghormley 
(916) 444-7775 

Silicon Valley Chapter 

4th Sat., 10 a.m. 

H-P Cupertino 

Bob Barr (408) 435-1616 

Stockton Chapter 

Doug Dillon (209) 931-2448 

• COLORADO 
Denver Chapter 
IstMon., 7 p.m. 

Clifford King (303) 693-3413 

• CONNECTICUT 

Central Connecticut Chapter 

Charles Krajewski 
(203) 344-9996 

• FLORIDA 
Orlando Chapter 

Every other Wed., 8 p.m. 
Herman B. Gibson 
(305) 855-4790 



Southeast Florida Chapter 

Coconut Grove Area 

John Forsberg (305) 252-0108 

Tampa Bay Chapter 

1st Wed., 7:30 p.m. 

Terry McNay (813) 725-1245 

• GEORGIA 
Atlanta Chapter 

3rd Tues., 6:30 p.m. 
Western Sizzlen, Doraville 
Nick Hennenfent 
(404) 393-3010 

• ILLINOIS 

Cache Forth Chapter 
Oak Park 

Clyde W. Phillips, Jr. 
(312) 386-3147 

Central Illinois Chapter 

Champaign 

Robert Illyes (217) 359-6039 

• INDIANA 

Fort Wayne Chapter 

2nd Tues., 7 p.m. 

I/P Univ. Campus, B71 Neff 

HaU 

Blair MacDermid 
(219)749-2042 

• IOWA 

Central Iowa FIG Chapter 

1st Tues., 7:30 p.m. 

Iowa State Univ., 214 Comp. 

Sci. 

Rodrick Eldridge 
(515)294-5659 

Fairfleld nC Chapter 

4th Day, 8:15 p.m. 

Gurdy Leete (515) 472-7077 



• MARYLAND 
MDHG 

Michael Nemeth 
(301) 262-8140 

• MASSACHUSETTS 
Boston Chapter 

3rd Wed., 7 p.m. 
Honeywell 

300 Concord, Billerica 

Gary Chanson (617) 527-7206 

• MICHIGAN 
Detroit/Ann Arbor Area 
4th Thurs. 

Tom Chrapkiewicz 
(313) 322-7862 

• MINNESOTA 
MNFIG Chapter 

Minneapolis 

Even Month, 1st Mon., 7:30 
p.m. 

Odd Month, 1st Sat., 9:30 a.m. 
Fred Olson (612) 588-9532 
NC Forth BBS (612) 483-671 1 

• MISSOURI 
Kansas City Chapter 
4th Tues., 7 p.m. 
Midwest Research Institute 
MAG Conference Center 
Linus Orth (913) 236-9189 

St Louis Chapter 
1st Tues., 7 p.m. 
ThomhiU Branch Library 
Robert Washam 
91 Weis Drive 
EUisviUe, MO 63011 

• NEW JERSEY 
New Jersey Chapter 
Rutgers Univ., Piscataway 
Nicholas Lordi 

(201) 338-9363 
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• NEW MEXICO 








Albuquerque Chapter 


• VERMONT 


Southern Belgium Chapter 


• NORWAY 


1st Thurs., 7:30 p.m. 


Vermont Chapter 


Jean-Marc Bertinchamps 


Bergen Chapter 


Physics & Astronomy Bldg. 


Vergennes 


Rue N. Mormom, 2 


Kjell Birger Faeraas, 


Univ. of New Mexico 


3rd Mon., 7:30 p.m. 


B-6290 Nalinnes 


47-518-7784 


Jon Bryan (505) 298-3292 


Vergeimes Union High School 


071/213858 






RM 210, Monkton Rd. 




• REPUBLIC OF CHINA 


• NEW YORK 


Hal Clark (802) 453-4442 


• CANADA 


R.O.C. Chapter 


FIG, New York 




BC FIG 


Chin-Fu Liu 


2nd Wed.. 7:45 p.m. 


• VIRGINIA 


1st Thurs., 7:30 p.m. 


5F, #10, Alley 5, Lane 107 


Manhattan 


First Forth of Hampton 


BCrr, 3700 Willingdon Ave. 


Fu-HsinS. Rd. Sec. 1 


Ron Martinez (212) 866-1157 


Roads 


BBY, Rm. lA-324 


TaiPei, Taiwan 10639 




William Edmonds 


Jack W. Brown (604) 596- 




Rochester Chapter 


(804) 8984099 


9764 


• SWEDEN 


Odd month, 4th Sat., 1 p.m. 




BBS (604) 434-5886 


SweFIG 


Monroe Comm. College 


Potomac FIG 




Per Aim 


Bldg. 7, Rm.l02 


D.C. & Northern Virginia 


Northern Alberta Chapter 


46/8-929631 


Frank Lanzafame 


1st Tues. 


4th Sat, 10a.m. -noon 




(716) 482-3398 


Lee Recreation Center 


N. Alta. InsL of Tech. 


• SWITZERLAND 




5722 Lee Hwy., Arlington 


Tony Van Muyden 


Swiss Chapter 


• OHIO 


Joseph Brown 


(403) 486-6666 (days) 


Max Hugelshofer 


Cleveland Chapter 


(703)471-4409 


(403) 962-2203 (eves.) 


Industrieberatung 


4th Tues., 7 p.m. 


E. Coast Forth Board 




Ziberstrasse 6 


Chagrin Falls Library 


(703) 442-8695 


Southern Ontario Chapter 


8152 Opfikon 


Gary Bergstrom 




Quarterly, 1st Sat., Mar., Jun., 


01 810 9289 


(216)247-2492 


Richmond Forth Group 


Sep., Dec, 2 p.m. 






2nd Wed., 7 p.m. 


Genl. Sci. Bldg., RM 212 


SPECIAL GROUPS 


Dayton Chapter 


154 Business School 


McMaster University 


• NC4000 Users Group 


2nd Tues. & 4th Wed., 6:30 


Univ. of Richmond 


Dr. N. Solntseff 


John Carpenter 


p.m. 


Donald A. Full 


(416) 525-9140 x3443 


(415)960-1256 (eves.) 


CFC. 11 W. Monument Ave. 


(804) 739-3623 




1698 Villa St. 


#612 




Toronto Chapter 


Mountain View, CA 94041 


Gary Ganger (513) 849-1483 


• WISCONSIN 


John Clark Smith 






Lake Superior Chapter 


PO Box 230, Station H 




• OREGON 


2nd Fri., 7:30 p.m. 


Toronto, ON M4C 5J2 




Willamette Valley Chapter 


1219 N. 21st St., Superior 






4th Tues., 7 p.m. 


Allen Anway (715) 394-4061 


• ENGLAND 




Linn-Benton Comm. College 




Forth Interest Group-UK 




Pann McCuaig (503) 752-5113 




London 






INTERNATIONAL 


1st Thurs., 7 p.m. 




• TENNESSEE 


• AUSTRALIA 


Polytechnic of South Bank 




East Tennessee Chapter 


Melbourne Chapter 


RM 408 




Oak Ridge 


1st Fri., 8 p.m. 


Borough Rd. 




2nd Tues., 7:30 p.m. 


Lance Collins 


D.J. Neale 




Sci. Appl. Int'l. Corp., 8th Fl 


65 Martin Road 


58 Woodland Way 




800 Oak Ridge Turnpike 


Glen Iris, Victoria 3146 


Morden, Surry SM4 4DS 




Richard Secrist 


03/29-2600 






(615) 483-7242 


BBS: 61 3 299 1787 


• HOLLAND 








Holland Chapter 




• TEXAS 


Sydney Chapter 


Vic Van de Zande 




Austin Chapter 


2nd Fri., 7 p.m. 


Finmark 7 




Matt Lawrence 


John Goodsell Bldg., RM 


3831 JELeusden 




POBox 180409 


LG19 






Austin, TX 78718 


Univ. of New South Wales 


• ITALY 






Peter Tregeagle 


FIG Italia 




Dallas Chapter 


10 Binda Rd., Yowie Bay 


Marco Tausel 




4th Thurs., 7:30 p.m. 


2228 


Via Gerolamo Fomi 48 




Texas Instruments 


02/524-7490 


20161 Milano 




13500 N. Central Expwy. 




02/435249 




Semiconductor Cafeteria 


• BELGIUM 






Conference Room A 


Belgium Chapter 


• JAPAN 




Clif Penn (214) 995-2361 


4th Wed., 8 p.m. 


Japan Chapter 






Luk Van Loock 


Toshi Inoue 




Houston Chapter 


Lariksdreff 20 


Dept. of Mineral Dev. Eng. 




3rd Mon., 7:45 p.m. 


2120 Schoten 


University of Tokyo 




Intro Class 6:30 p.m. 


03/658-6343 


7-3-1 Hongo,Bunkyo 113 




Univ. at St. Thomas 




812-2111 x7073 




Russell Harris (713) 461-1618 
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INFORMATION 
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GEnic 




General Etectric Network for Information Exchanae 

• Over 600 Downloadable Files of Forth Information and Code 

• Technical Information Exchange on our Bulletin Board and by E-Mail 

• On-Line Real-Time Conferencing 

SPECIAL SIGN-UP FOR FIG MEMBERS ONLY 

$29.95 

Includes GEnie Manual Plus 5 FREE Hours on GEnle 

Using your modem call: 1 -800-638-8369, type "HHH" (or) 
Following the U# prompt, type "XJM1 1 849,GENIE" (cr) 



Forth Interest Group 

P.O.Box 8231 

San Jose, CA 95155 
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